VBA：配列の中で文字列が何番目にあるか知りたい

質問

たとえば
Hairetu = Array("ABC","DEF","GHI")
としておいて配列から"DEF"が何番目にあるのかを検索する方法はないのでしょうか?
よろしくお願いします。

回答No.1

marbin · ベストアンサー

ベタですが、ループさせる、ではだめですか？

Sub test()
Dim Hairetu As Variant
Dim moji As String
Dim i As Integer
Dim cnt As Integer
Hairetu = Array("ABC", "DEF", "GHI")
moji = "DEF"
For i = 0 To UBound(Hairetu)
If moji = Hairetu(i) Then
cnt = i
Exit For
End If
Next i
MsgBox moji & "は" & cnt + 1 & "番目です。"
End Sub

補足

ワークシート関数のMATCH関数を使ったらできました。
ありがとうございました。