Добрый вечер !
Есть два списка детей. Один по алфавиту, а другой по договору.
Необходимо взять размер обуви из листа по алфавиту и вставить напротиф Фамилии в листе по договору.
Начал писать, а потом запутался.
Собственно вопрос, когда со второго листа беру фамилию, можно сразу запомнить номер строки в переменную ? (.Row)
Sub learningFind()
Dim sh_in As Worksheet, sh_out As Worksheet
Dim rangeToSearch As Range
Dim cellWithValue As Range
Dim CellFind1 As Range
Dim CellFind2 As Range
Set sh_in = Worksheets("Лист2")
Set sh_out = Worksheets("Лист1")
Set rangeToSearch = ThisWorkbook.Worksheets("Лист1").Range("B3:B34")
For Each cellWithValue In ThisWorkbook.Worksheets("Лист2").Range("B3:B34")
Set CellFind1 = rangeToSearch.Find(cellWithValue, , xlValues, xlWhole)
MsgBox CellFind1.Offset(0, 1).Value
Next cellWithValue
End Sub