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

ExcelVBA-配列内で指定文字が何番目か調べる-アイキャッチ ExcelVBA

エクセルマクロで、配列の中で指定文字が何番目か調べる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選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!