Честно скажу, искал в сети но не у вас, понял что не знаю как правильней сформулировать запрос)
Суть такая, у меня есть две таблицы, они с разной информацией но в обеих есть связующая информация, ID строк, в одной таблице их больше, в другой их меньше, грубо говоря из нее исключены id, которых я не нашел в базе. Мне надо выравнять две таблицы чтобы id и id2 стояли друг напротив друга со своей остальной информацией. Во вложении тест, лист 1 как есть, лист 2 как надо сделать.
Sub IDsAlignment()
Dim lngI As Long, objC As Range
Application.ScreenUpdating = False
lngI = Cells(Rows.Count, 3).End(xlUp).Row
On Error Resume Next
For Each objC In Range("C2:C" & lngI)
objC.Resize(1, 3).Cut Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Find(objC).Offset(0, 1)
Next objC
Application.ScreenUpdating = True
End Sub
_Igor_61, Пытливый, Большое спасибо! Как все сложно то)) _Igor_61, а как применять данную функцию? *кажется понял через другой пример. Мне нужна оригинальная таблица на Л1, на Л2 я повторяю левую часть таблицы, в правой части используется формула и просто тянется, она сравнивает данные и ставит на место данные уже на Листе 2.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄