【VBA】データの最終行を部分一致で抽出する方法

日々の業務では大量のデータから必要な情報を素早く取り出すことが求められます。手作業で探すのは時間がかかりますし、ミスも増えてしまいます。そこでこの記事では、VBAを使って特定の文字列を含む最終行を効率的に抽出する方法をお伝えします。

💡

Pick Up おすすめ

Excelスキルをアップグレード

実務で役立つスキルを体系的に学びませんか？Udemyなら頻出テクニックを最短でマスターできます。

サンプルコード

VBA

Option Explicit
Sub ExtractLastRowWithPartialMatch()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.ScreenUpdating = False '画面更新停止
    Dim lastRow As Long, i As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row '最終行を取得
    For i = lastRow To 1 Step -1 '最終行から上に向かって検索
        If InStr(1, ws.Cells(i, 1), "部分一致文字列", vbTextCompare) > 0 Then '部分一致条件
            ws.Rows(i).Copy Destination:=ws.Range("A2") '該当行をコピー
            Exit For '見つかったらループ終了
        End If
    Next i
    Application.ScreenUpdating = True '画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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