With this code:
ReDim Tmp(0 To 1000) As String
Dim i, e As Integer
Dim Max As Integer
Dim xx
Dim Str As String
Range("A1").Select
e = 0
Max = 0
Str = "a"
Set xx = Cells.Find(What:=Str, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
For i = 1 To 9999
Cells.FindNext(After:=ActiveCell).Activate
If (xx Is Nothing) Or (Max > ActiveCell.Row) Then Exit For
Tmp(e) = ActiveCell.Offset(0, 1).Value
e = e + 1
Max = ActiveCell.Row
Debug.Print e
Next
ReDim Preserve Tmp(e-1)
you found all the occurances. If you want only on a column change two lines:
' Range("A1").Select
Columns("A:A").Select
' Cells.FindNext(After:=ActiveCell).Activate
Selection.FindNext(After:=ActiveCell).Activate
Find only on the column / Range selected.