Sub Howtousefind ()
Dim Celltofind As Range
Установить Celltofind = Range ("b2", Range ("B2"). End (xlDown)). Find (InputBox (" Введите Mov ie Имя "))
MsgBox Celltofind.Value &" найдено в "& Celltofind.Address
End Sub
Я получил желаю результата, но может кто-нибудь ответить мне, почему найти функцию, не работающую с переменными, почему она не может определить переменную ... если кто-то ответит, это будет действительно здорово ...