一致する行を配列に入れたいのですが命令が分からない

Question

お世話になっております。
15分調べて分からなかったので書き込み失礼いたします。

今現在

　　A　B　C　……
１　　aaa
２　　bbb
３　　ccc
４　　aaa
５　　abc

のようなexcelがありVBAで　aaa　の行の列を配列に入れる関数を作りたいと思っておりました

Private Sub getGyou()
    Dim hairetsu(7) As Integer
    'ココにそれっぽい命令入れる予定
End Sub

作成しようとして困ったのですがどういった命令が使えるのか分からないのです……
Findの気がしますがなんか一つしか返ってこない気がしているのでお問い合わせいたします。

上記hairetu(7)　に複数記載があるaaaの行数を入れる良い手法をご教示頂けないでしょうか？

初心者の質問失礼いたしますが何か情報をお持ちな方はコメント頂けますと嬉しく思います。

Answer 1

Findメソッドは以下を参考にしてみてください。
複数検索の例もあります。

https://valmore.work/find-cell-by-find/

Comments

[ma2hiro]

hex309様
ありがとうございます。

お教え頂いたURLからリンクの貼ってある
https://valmore.work/vba-find-next/
記載の
```
Set searchRng = Range("B:B")
' 最初はFindで検索
Set rng = searchRng.Find("りんご")
' 検索結果を一時保存
Set tempRng = rng
' 条件にあったセルが見つからなければNothingが返るので何もしません
Do While Not rng Is Nothing
Debug.Print rng.Row

' FindNextで検索を継続
Set rng = searchRng.FindNext(rng)

' すべて検索し終えると最初に戻るので、Addressで確認！
' これを忘れると無限ループになるので注意！
If rng.Address = tempRng.Address Then
Exit Do
End If
Loop
```
で解決出来そうですっ
FindNextで回すのですねっ
情報ありがとうございました。