код ниже: переставляет в B1 найденную двойку. и всё. код правильно работает.
(в листах 1,2,3 у нас A1=1, A2=2, в остальных ячейках пусто)

sub sssDim a(3), b(3)
For i = 1 To 3
Set found = Worksheets(i).Range("a1:a10").Find("2", LookIn:=xlFormulas)
a(i) = found.Row: b(i) = found.Column

Worksheets(i).Range("B1").Value = Worksheets(i).Cells(a(i), b(i)).Value'*********

Next i
End Sub

НО
Если вместо строки ********* поставить строку
Worksheets(i).Range("B1:B2").Value = Worksheets(i).Range(Cells(1, 1), Cells(a(i), b(i))).Value

код дает: object-defined error
разница с первым кодом в том, что здесь уже две ячеки(точнее диапазон B1:B2) вставляет. и всё.

и
justice85:
top encryption secret
ирония?