сравнивание двух столбцов чисел

[DiemonStar]

Sub bb()
Dim i&, j&, k&
Application.ScreenUpdating = False
i = 1
Do While Cells(i, 2) <> "" And Cells(i, 3) <> ""
1:  If Cells(i, 2) < Cells(i, 3) and Cells(i, 2) <> "" Then
        j = j + 1
        Cells(i, 2).Cut Cells(j, 1)
        Cells(i, 2).Delete xlUp
        GoTo 1
    ElseIf Cells(i, 2) > Cells(i, 3) and Cells(i, 3) <> "" Then
        k = k + 1
        Cells(i, 3).Cut Cells(k, 4)
        Cells(i, 3).Delete xlUp
        GoTo 1
    End If
    i = i + 1
Loop
Application.ScreenUpdating = True
End Sub

Вот так вроде должно работать

[Mishael]

Спасибо все работает!!!