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

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

No.1 ベストアンサー 回答者： marbin 回答日時： 2007/10/29 20:26

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

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関数を使ったらできました。
ありがとうございました。

補足日時：2007/10/29 20:49