Определенный поиск в Excel

[FiataliS]

Есть большая таблица в ней много значений в каждой ячейке в том числе и буквы и знаки и нули, но есть две цыфры не нули, которые написаны одна за другой в столбец. Как присвоить переменной номер строки, а второй переменной столбца первой верхней цыфры, при условии что такое совпадение только одно на листе?

Цифры любые например 213, 22, 2, 231, 95, 435, 22 и т.д

[IgorGO]

в связи с тем, что таблица большая, а цифры любые
предлагаю переменным строка и столбец тоже присваивать любые значения

VarRow = 1+rnd()*activesheet.usedrange.rows.count
VarCol = 1+rnd()*activesheet.usedrange.columns.count

[EducatedFool]

IgorGO, как мне нравится читать твои ответы

[alex77755]

Если именно цифры, а не числа, то можно так:

Sub asdfd()
Dim i As Long, rng As Range, Адрес As String

With Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
    For i = 0 To 9
        Set rng = .Find(What:=i, LookIn:=xlValues, LookAt:=xlWhole)
            If Not rng Is Nothing Then
                Адрес = rng.Address
                Do
                    If IsNumeric(rng.Value) And IsNumeric(Cells(rng.Row + 1, rng.Column).Value) Then
                        MsgBox rng.Row, 64, ""
                        Exit Sub
                    End If
                    Set rng = .FindNext(rng)
                Loop While Адрес <> rng.Address
            End If
    Next i
End With
End Sub

[alex77755]

Или вынести в отдельную функцию:

Sub asdfd()
 MsgBox STROKA, 64, ""
End Sub

Function STROKA()
    Dim i As Long, rng As Range, Адрес As String
     STROKA = "Нет совпадений"
    With Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
        For i = 0 To 9
            Set rng = .Find(What:=i, LookIn:=xlValues, LookAt:=xlWhole)
                If Not rng Is Nothing Then
                    Адрес = rng.Address
                    Do
                    If IsNumeric(rng.Value) And IsNumeric(Cells(rng.Row + 1, rng.Column).Value) Then
                       STROKA = rng.Row
                       Exit Function
                    End If
                    Set rng = .FindNext(rng)
                    Loop While Адрес <> rng.Address
                End If
        Next i
    End With
End Function

[alex77755]

Что бы работало с числами заменить :LookAt:=xlPart

[FiataliS]

Сообщение от alex77755

Что бы работало с числами заменить :LookAt:=xlPart

Всем спасибо.