Добрый день. Помогите пожалуйста. Похожие темы были, но немного другие. Есть 2 таблицы, необходимо сделать сравнения значений в опр. столбцах, но сравнивать так, что бы при обнаружении одинаковых ячеек, опр. диапазон строки этой ячейки копировался в другую таблицу, в ту строку, где находится такая же ячейка. т.е. а1 в т.1. совпала с в3 в т.2 --> диапазон с3-е3 должен копироваться в диапазон с1-е1

Sub max()
W1 = ActiveWorkbook.Name
l1 = ActiveSheet.Name

Workbooks.Open ("C:\distrib\rh_macros\êíèãà2.xls")

W2 = ActiveWorkbook.Name
l2 = ActiveSheet.Name

For i = 1 To 100

If Workbooks(W1).Worksheets(l1).Cells(i, 1) <> Workbooks(W2).Worksheets(l2).Cells(i, 2) Then
Workbooks(W1).Worksheets(l1).Range("k" & i) = Workbooks(W2).Worksheets(l2).Range("c" & i)
End If
Next

Workbooks(W2).Close SaveChanges:=False
End Sub
Вот. Но здесь он просто их сравнивает и потом ставит в ячейку "к" в те строки где они были в w2, а мне нужно, чтоб копировались в первый лист именно в те строки, где есть схожие ячейки

таб.1
а1:1
а2:2
а3:3

таб.2
в1:3 с1:ффф d1:ддд
в2:2 с2:ыыы d2:жжж
в3:1
Нужно, чтоб с1 и d1 скопировались в третью строку (т.к. тройка у нас совпала с а3) а он их вставляет в первую таб.1

проще говоря как написать чтоб он сравнивал с диапазоном в1:в50 во второй книге, а не с Workbooks(W2).Worksheets(l2).Cells(i, 2) ? думаю это должно помочь.

а1:ц


в4:ц с4:ккккккк
нужно, чтоб после сравнения а и в, значение с4:(ккккк) скопировалось в е1.

теперь делаю так:
т.1
а1:ц
а2:ы
а3:ф

т.2
в4:ф
в5:ц
в6:ы

For i = 1 To 100

If Workbooks(W1).Worksheets(l1).Range("a" & i) <> Workbooks(W2).Worksheets(l2).Range("b" & i) Then
Workbooks(W1).Worksheets(l1).Range("k" & i).Value = 1 ' ставлю единицу просто для примера, чтоб понять.
End If
Next

так у меня к1:к6 ставятся единицы, а мне надо, чтоб только к1:к3 т.к. основная т.1
может переменную завести или еще как-то? помогите пожалуйста.

вот пример: на первом листе 3 ячейки, на втором тоже три + описание, необходимо, чтобы после сравнения столбцов а и в, описание из с,d,е скопировалось в лист1 строки 123(там где совпали значения), грубо говоря тоже в с,d,е

вставил модуль.
а как сделать, чтоб копировалось именно в те строки на листе1, где находятся эти одинаковые ячейки(1,2,3в данном случае)???

просто это пример, потом вставлю и подгоню его. У меня 2 больших таблицы в разных документах, там куча всего будет переноситься и копироваться. Застопорился здесь, подтолкните пожалуйста.
Наверное необходимо завести еще одну переменную, чтоб разделить значения i для двух листов?

Вообще неправильно. начал проверять и удалять некоторые значения, все равно копирует строки со 2 листа на первый( Нужен нормальный цикл с переменными. а как его написать я не знаю.

Разбираюсь. Спасибо.