vartype(i)

For Each myRange In List

i = myRange.Column: j = myRange.Row

Function GetLike(List As Range, ColumnCount As Integer, Optional Curr As String) As Double
Dim arr() As Variant
...
    arr = List
    For i = LBound(arr) To UBound(arr)
        For j = LBound(arr, 2) To UBound(arr, 2)
        ...
        Next
    Next
End Function

Sub CompareMethods()
Dim arr(1 To 1000000, 1 To 2) As Variant
Dim i As Long, j As Long
Dim r As Range

' заполнить массив
Randomize
For i = LBound(arr) To UBound(arr)
    For j = LBound(arr, 2) To UBound(arr, 2)
        'If (i + j) Mod 10 = 0 Then ' 1й вариант заполнения
        'If (i + j) Mod 2 = 0 Then ' 2й вариант заполнения
        ' 3й вариант - это отсутствие условия заполнения (заполняем всё)
            arr(i, j) = Rnd()
        'End If
    Next
Next

' массив отобразить на лист
Set r = Range("A1").Resize(UBound(arr), UBound(arr, 2))
r = arr

' поиск методом find
FooFind r

' поиск ч/з массив и like
LikeInArray r
End Sub

' процедура, использующая find
' болван здесь: https://msdn.microsoft.com/en-us/library/office/ff196143.aspx
Sub FooFind(r As Range)
Dim t As Single
Dim c As Range
Dim firstAddress As String
t = Timer

Set c = r.Find("123")
If Not c Is Nothing Then
    firstAddress = c.Address
    Do
        Set c = r.FindNext(c)
        ' ничего не делаем, просто ищем по условию
    Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Debug.Print (Timer - t) * 1000 & "msec in fooFind"
End Sub

Sub LikeInArray(r As Range)
Dim t As Single
Dim i As Long, j As Long
Dim arr() As Variant

' начало замера до загрузки массива - всё по честному
t = Timer

arr = r
For i = LBound(arr) To UBound(arr)
    For j = LBound(arr, 2) To UBound(arr, 2)
        If Not IsEmpty(arr(i, j)) Then
            If arr(i, j) Like "*123*" Then
               ' ничего не делаем, но условие поиска должно быть выполнено
            End If
        End If
    Next
Next

Debug.Print (Timer - t) * 1000 & "msec in likeInArray"
End Sub

Sub CompareMethods()
Dim arr(1 To 1000000, 1 To 2) As Variant
Dim i As Long, j As Long
Dim r As Range

' заполнить массив
Randomize
For i = LBound(arr) To UBound(arr)
    For j = LBound(arr, 2) To UBound(arr, 2)
        If (i + j) Mod 10 = 0 Then ' 1й вариант заполнения
        'If (i + j) Mod 2 = 0 Then ' 2й вариант заполнения
        ' 3й вариант - это отсутствие условия заполнения (заполняем всё)
            arr(i, j) = "text" & Rnd()
        End If
    Next
Next

' массив отобразить на лист
Set r = Range("A1").Resize(UBound(arr), UBound(arr, 2))
r = arr

' поиск методом find
FooFind Range("A:C") 'r

' поиск ч/з массив и like
LikeInArray Range("A:C") 'r
End Sub