Автор Варзиев Виталя задал вопрос в разделе Другие языки и технологии
(EXCEL) Макрос с использованием ВПР и получил лучший ответ
Ответ от Ѓдачник[гуру]
Примерно так k = 1 Do While Worksheets(1).Rows(k).Cells(1) <> \"\" j = 1 Do While Worksheets(2).Rows(j).Cells(1) <> \"\" If Worksheets(2).Rows(j).Cells(1) = Worksheets(1).Rows(k).Cells(1) Then Worksheets(1).Rows(k).Cells(2) = Worksheets(2).Rows(j).Cells(2) End If Loop Loop
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: (EXCEL) Макрос с использованием ВПР