【VBA】データの最終行を完全一致で配列に格納する方法

手作業で大量のデータから特定の条件に合致する行を探し出すのは時間がかかるだけでなく、ミスも起こりやすいです。この記事では、VBAを使って簡単にその問題を解決します。特定の値と完全一致するデータの最終行を配列に格納することで、後続の処理が効率的に行えます。

サンプルコード

VBA

Option Explicit
Sub ExtractMatchingRowsToArray()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") '対象シート名を指定
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '最終行取得
    Dim targetValue As String
    targetValue = "完全一致する値" '検索対象の文字列を指定
    
    Dim matchingRows() As Long
    ReDim matchingRows(1 To lastRow)
    Dim count As Long
    count = 0
    
    Application.ScreenUpdating = False '画面更新停止
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value = targetValue Then '完全一致チェック
            ReDim Preserve matchingRows(1 To count + 1)
            matchingRows(count + 1) = i
            count = count + 1
        End If
    Next i
    
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。