エクセルマクロ 配列内で指定文字が何番目か調べる:動画あり

エクセルマクロで、配列の中で指定文字が何番目か調べるVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
動画で動作確認ができます👇

配列内で指定文字が何番目か調べる

以下のExcelVBAを実行すると、配列をループして特定文字が何個目にあるか検索します。

Sub 配列の先頭から何番目かチェック()

Dim MyList() As Variant
Dim i As Long
Dim j As Long
Dim Target As String

    '配列に要素を格納
    MyList = Array("りんご", "みかん", "ぶどう", "もも")

    '検索対象の文字
    Target = "みかん"

    j = 0

     '配列をループ
     For i = 0 To UBound(MyList)

        '配列から検索文字が見つかった場合
        If MyList(i) = Target Then
            MsgBox Target & "：" & i & "番目に存在します"
            j = j + 1
            Exit For
        End If
    Next

    '配列から検索文字が見つからない場合
    If j = 0 Then
        MsgBox "存在しません"
    End If

End Sub

配列内に指定文字が存在する場合

[Target = “みかん”] に、検索対象の文字を指定します。

配列 [MyList] の中に検索対象の文字がある場合、
メッセージボックスに「●番目に存在します」と表示します。

配列内に指定文字が存在しない場合

メッセージボックスに「存在しません」と表示します。

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】配列処理を自動化する使用例まとめ
 

【エクセルマクロ】配列処理を自動化する：使用例16選

...

kirinote.com

2023.02.25