Сравнение и организация 2 соседних столбцов VBA

Question

Я пытаюсь сравнить 2 соседних столбца в Excel и упорядочить их по размеру. Я хочу сравнить ячейки A1 и B1, и если ячейка A1> ячейка B1, переключите ячейки A1 и B1. Если ячейка A1 <ячейка B1, ничего не делайте. Я хочу сделать это для тысяч строк, сравнить 2 ячейки в каждой строке и внести соответствующие изменения с помощью макроса. Ex. </p>

2|3 goes to 2|3
4|1 goes to 1|4
7|5 goes to 5|7

Я нашел здесь следующий вопрос: Метод быстрого сравнения из 2 столбцов

Любая помощь будет принята с благодарностью!

Это изображение, которое я нашел по ссылке, из которой я пытаюсь создать. Это не совсем то, что я хочу, но я подумал, что это близко к тому, что я пытаюсь сделать! Желательно, чтобы макрос не занимал особенно много времени.

Answer 1

 Sub kjkj()
     With Worksheets("Sheet1") 'Change to your sheet
         Dim rng As Range
         Set rng = .Range("A1:B3") 'Change to your range

         Dim arr As Variant
         arr = rng.Value

         Dim outArr
         ReDim outArr(1 To UBound(arr, 1), 1 To UBound(arr, 2))

         Dim i As Long
         For i = 1 To UBound(arr, 1)
            If arr(i, 1) > arr(i, 2) Then
                outArr(i, 1) = arr(i, 2)
                outArr(i, 2) = arr(i, 1)
            Else
                outArr(i, 1) = arr(i, 1)
                outArr(i, 2) = arr(i, 2)
            End If
        Next i

        rng.Value = outArr
    End With
End Sub