【VBA】特定の文字を含む行をバックグラウンドで抽出する方法

日々の業務で大量のデータから特定の情報を素早く取り出すことは、効率化の鍵です。しかし手作業では時間がかかります。この記事では、VBAを使って特定の文字を含む行だけをバックグラウンドで高速に抽出する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub ExtractRowsContainingSpecificText()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim targetSheetName As String, searchColumn As Integer, searchText As String
    
    ' パラメータ設定（必要に応じて変更）
    Set ws = ThisWorkbook.Sheets("データ") ' 対象のシート名を指定
    searchColumn = 1 ' 検索対象の列番号（A列=1, B列=2...）
    searchText = "特定の文字" ' 抽出する文字列
    
    Application.ScreenUpdating = False ' 画面更新停止
    lastRow = ws.Cells(ws.Rows.Count, searchColumn).End(xlUp).Row ' 最終行取得
    Dim targetRows As Collection
    Set targetRows = New Collection
    
    For i = 1 To lastRow
        If InStr(Trim(ws.Cells(i, searchColumn)), searchText) > 0 Then
            targetRows.Add CStr(i)
        End If
    Next i
    
    ' 抽出結果の表示（例：抽出行番号を別シートに書き出す）
    Dim resultSheet As Worksheet
    Set resultSheet = ThisWorkbook.Sheets("結果")
    resultSheet.Cells.ClearContents
    For i = 1 To targetRows.Count
        resultSheet.Cells(i, 1).Value = targetRows.Item(i)
    Next i
    
    Application.ScreenUpdating = True ' 画面更新再開
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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