VBA中的冒泡排序未正确排序[关闭]

Question

我正在尝试对一些数据进行冒泡排序，但排序不起作用。我想我必须做一些明显愚蠢的事情。我已经足够接近代码，知道实际排序算法有问题。

        Do While Low <= High And Worksheets("Data").Cells(i, Column_EAM_WorkOrderNum) <> ""
            CheckVal = (High + Low) / 2
            If Worksheets("Data").Cells(i, Column_EAM_WorkOrderNum) = Worksheets("Data2").Cells(CheckVal, Column_KSR_WorkOrderNum) Then
               'Copy Data Over
                Worksheets("Data").Range("AM1").Offset(i - 1, 0).Value = Worksheets("Data2").Range("A1").Offset(CheckVal - 1, Column_KSR_ServiceID - 1).Value
                Worksheets("Data").Range("AN1").Offset(i - 1, 0).Value = Worksheets("Data2").Range("A1").Offset(CheckVal - 1, Column_KSR_CreatedDate - 1).Value
'
                If IsNumeric(Column_KSR_Type) = True Then
                    Worksheets("Data").Range("AO1").Offset(i - 1, 0).Value = Worksheets("Data2").Range("A1").Offset(CheckVal - 1, Column_KSR_Type - 1).Value
                End If
                Exit Do
            ElseIf Worksheets("Data").Cells(i, Column_EAM_WorkOrderNum) < Worksheets("Data2").Cells(CheckVal, Column_KSR_WorkOrderNum) And Worksheets("Data2").Cells(CheckVal, Column_KSR_WorkOrderNum) <> "Service Provider Ref #" Then
                Low = CheckVal - 1
            Else
                High = CheckVal + 1
            End If
        Loop

我提前道歉：如何设置此代码我无法找到一种简单的方法来提供最少的可复制代码，而无需复制数百行代码来支持这个简单的块。我希望我只是遗漏了一些明显的东西。

Answer 1

在 ElseIf 和 Else 中交换您的低点和高点。