Поиск в массиве

[edikamn]

Здравствуйте.

Задаю массив

Range("A1:B1000").value
Пусть например в нем есть значение "яблоко" в строке 5 колонке 2

Как мне найти это значение и присвоить переменным номера строки и столбца в этом массиве

[gsg]

можно так

Sub mass()

Dim ran As Range


Set ran = Range("A1:B1000")
ran.Select
Set x = ran.Find("яблоко")
If Not x Is Nothing Then
    x_row = x.Row
    x_col = x.Column
End If


End Sub

[edikamn]

InVal=Range("A1:B1000").value

Как искать уже в InVal и определить место положение найденного значения (InVal(5,2))

[kuklp]

Так:

Type FM
    FCol As Long
    FRow As Long
End Type 'это в область объявления глобальных переменных

Sub poisk()
    Dim s$, r As FM, InVal
    s = "яблоко"
    InVal = Range("A1:B1000").Value
    r = FMatch(InVal, s)
    MsgBox r.FCol & ", " & r.FRow
End Sub

Function FMatch(arr, Mfind$) As FM
    Dim i&, j&, k As FM
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) = Mfind Then
                FMatch.FCol = i
                FMatch.FRow = j
                Exit Function
            End If
        Next
    Next
End Function

[IgorGO]

или формулами:
=МАКС((дано="яблоки")*СТРОКА(дано))
=МАКС((дано="яблоки")*СТОЛБЕЦ(дано) )
где
дано - ссылка на массив с данными
(обе формулы массива)

[kuklp]

IgorGO, автор просил не в диапазоне, а в массиве(который в памяти). С наступающим Вас!