Страницы: 1
RSS
Сравнить и выровнять две таблицы
 
Добрый день

Честно скажу, искал в сети но не у вас, понял что не знаю как правильней сформулировать запрос)

Суть такая, у меня есть две таблицы, они с разной информацией но в обеих есть связующая информация, ID строк, в одной таблице их больше, в другой их меньше, грубо говоря из нее исключены id, которых я не нашел в базе.
Мне надо выравнять две таблицы чтобы id и id2 стояли друг напротив друга со своей остальной информацией.
Во вложении тест, лист 1 как есть, лист 2 как надо сделать.

Как это можно реализовать?
Изменено: GreyAlex - 21.06.2019 15:49:10
 
Так?
 
Добрый день. Можно еще так:
Код
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.
Изменено: GreyAlex - 21.06.2019 16:41:09
 
GreyAlex, ссылка из соседней темы
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Jack Famous,Спасибо! Почитаю.
Страницы: 1
Наверх