У меня стоит метод Find. Как выдать адрес на ячейку, которая совпадает с искомым текстом? И ещё, допустим, у меня Excel нашёл ячейку (всё тоже самое, с методом Find), и как выдать значение соседней ячейки?
Sub Test()
Dim Rng As Range
Set Rng = Range("A1:Z100").Find("мама", , xlFormulas, xlWhole)
If Rng Is Nothing Then
MsgBox "Не найдено!", vbExclamation, "Внимание"
Exit Sub
End If
MsgBox "Адрес найденной ячейки: " & Rng.Address(0, 0)
MsgBox "Значение соседней справа ячейки: " & Rng.Offset(, 1).Value
End Sub