Дано: 3 столбца данных - 1 эталон, 2 и 3 - реальные данные (созависимы). Нужно расставить значения соответственно эталону. На гифке: https://gyazo.com/c76311cce88808869ab637a64cfe481c показано как сейчас приходится перебирать массив вручную. Есть ли макрос, либо формула, которая заменит ручной труд? Есть оговорка - во 2 столбце бывают значения, отсутствующие в эталонном, их (и соответствующую ячейку 3 столбца) желательно просто выделить цветом без каких-либо перемещений.
Sub Sc()
Dim i&
i = 3 'первая строка
Application.ScreenUpdating = False
Do
If Cells(i, 2) <> "" And Cells(i, 3) <> "" Then
Select Case Cells(i, 2) - Cells(i, 3)
Case Is < 0 'B<C
Cells(i, 3).Resize(, 2).Insert xlShiftDown
Case Is > 0
Cells(i, 2).Insert xlShiftDown
End Select
End If
i = i + 1
Loop Until Cells(i, 2) = "" And Cells(i, 3) = ""
Application.ScreenUpdating = True
End Sub