Сравнение двух таблиц и вывод результата в третьей

[lapsus]

doober, мне, конечно, жутко неудобно.. но ссылки эти не кликабельны. Суть в том, что юзер должен таким образом отфильтровать таблицу, потом найти, по его личным каким-то соображениям, идентичную запись, кликнуть на нее и перейти в таблицу на листе 2 для того, чтобы скопировать вручную оттуда нужные данные в таблицу на листе 1. В общем, избавить бы его от скрола) щелкнул - бац! оказался в нужном месте)

[doober]

На потолке не удобно

Private Sub CommandButton1_Click()
l = 2

For m = 35 To 1316 
i = 0

Dim fl As Boolean
fl = False

For n = 8 To 169 
d = Simil(Лист1.Cells(m, 2), Лист2.Cells(n, 2))
If d > 0.3 Then  

Sheets("Лист3").Cells(l, 1).Value = Лист1.Cells(m, 2)
Sheets("Лист3").Cells(l, 2 + i)= Лист2.Cells(n, 2)
Sheets("Лист3").Hyperlinks.Add Anchor:=Sheets("Лист3").Cells(l, 2 + i), Address:="", SubAddress:= _
       "Лист2!" & Лист2.Cells(n, 2).Address

i = i + 1
fl = True
End If
Next
If fl = True Then
l = l + 1
End If
Next

End Sub

Одеяло падает

[lapsus]

Личный опыт?
Спасибо большущее! Надеюсь, этого будет достаточно