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

[Mishael]

Помогите пожалуйста! обсмотрел форум но ничего подобного не нашел! Имеються 2 столбца чисел нужно поставить формулу ну или макрос что бы в столбцах оставлись одинаковые числа а разные числа первого столбца встали в отдельный столбик по левую сторону первого столбца (тоже самое для второго столбца - по правую сторону сравненого второго столбца) на примере вложение вариант как "было" и "должно быть"

[Казанский]

Попробуйте

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) 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) 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]

не выходит так. Может что ни так сделал. Скиньте пожалуйста с макросом если есть возможность. Заранее благодарю!

[Serge 007]

Формулами, см. вложение

Mishael, у Вас в файле ошибочка, выделил красным

[Казанский]

Пожалуйста с макросом

[Mishael]

Сообщение от Казанский

Пожалуйста с макросом

Спасибо большое все заработало

Только вот, извеняюсь за вопрос(я чайник ), никак немогу понять что нужно в макросе поменять если у меня столбцы будут строк под 200

[DiemonStar]

Ничего. Главное - чтобы второй и третий столбец не были совместно пустыми.

[Mishael]

Сообщение от DiemonStar

Ничего. Главное - чтобы второй и третий столбец не были совместно пустыми.

Так не выходит подставляю ниже числа в столбци выдает ошибку при нажатии макроса

[DiemonStar]

Прикрепите файл - а то телепатический контакт настраивать неохота...

[Mishael]

Сообщение от DiemonStar

Прикрепите файл - а то телепатический контакт настраивать неохота...

файл в 5 сообшении темы