Dim r As Range
For Each r In Range("A:A")
    If r.Value = "Значение" Then MsgBox (r.Address)
Next r

With Worksheets( 1 ).Range("a1:a500")
    Set c = .Find( 2 , lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value =  5 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

if Нужно искать определенную информацию во всем листе then
       'Нужны макросы или я не в курсе как можно без них.
       'Если кто знает, плз подскажите
else
       if известна строка поиска then 'Для примера известная строка - 19
              =АДРЕС(СТРОКА( 19 : 19 );ПОИСКПОЗ("Определенная информация"; 19 : 19 ; 0 ))
       else 'то есть известен столбец. Для примера возьмем столбец J
              =АДРЕС(ПОИСКПОЗ("Определенная информация";J:J; 0 );СТОЛБЕЦ(J:J))
       end if
end if

        Loop While Not c Is Nothing And c.Address <> firstAddress

        Loop While Not c Is Nothing And c.Address <> firstAddress

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы