【エクセルマクロ】配列内で指定文字が何番目か調べる:コピペで使えるコード

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] に検索対象の文字がある場合、

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


 

要素が存在しない場合

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


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】配列処理を自動化する:超便利9選
...

 

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