Друзья! Помогите пожалуйста!!!
Нужен код, осуществляющий поиск ячейки с определенным значением (типа 12345678) в таблице Excel.
СПАСИБО!

Здравствуйте, KMI, Вы писали:

KMI>Друзья! Помогите пожалуйста!!!
KMI>Нужен код, осуществляющий поиск ячейки с определенным значением (типа 12345678) в таблице Excel.
KMI>СПАСИБО!

Вот так:

Sub finder()
    Dim r As Range
    With ActiveSheet.UsedRange
        Set r = .Find("second")
        If Not r Is Nothing Then
            firstAddress = r.Address
            Do
                MsgBox CStr(r.Value)
                Set r = .FindNext(r)
            Loop While Not r Is Nothing And r.Address <> firstAddress
        End If
    End With
End Sub

Здесь на активном листе (ActiveSheet) в его "занятой части" (там, где что-то есть в ячейках) (UsedRange) мы ищем все слова "second" при помощи методов Worksheet.Find и Worksheet.FindNext и выводим MsgBox-ом значения тех ячеек, где было найдено это слово.