Многократный поиск значения в таблице

[IgorGO]

Sub RunFindDialog()
  SendKeys "^f"
End Sub

[Hugo121]

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

Function FindAllIn(That, Where As Range) As Range
  Dim rg As Range, frg As Range, adr1, cnt
  With Where
    Set rg = Where.Cells(1)
    Set rg = .Find(That, after:=rg, LookIn:=xlValues)
    If Not rg Is Nothing Then
      adr1 = rg.Address:  Set frg = rg
      Do
        Set rg = .FindNext(rg):  cnt = cnt + 1
        If Not rg Is Nothing Then Set frg = Application.Union(frg, rg) Else Exit Do
      Loop While rg.Address <> adr1
    End If
    Set FindAllIn = frg:  MsgBox "Найдено:  " & cnt & " шт."
  End With
End Function


sub Test
  findallin("090019", [k:k]).select
end sub

вместо [k:k] - впишите правильную колонку
выполните Test
это не решает Вашу задачу, зато демострирует принцип)

Пример в хелпе не намного отличается