【VBA】データの最終行を部分一致で別ブックとして保存する方法

日々の業務で大量のデータを扱う際、特定の文字列が含まれる行だけを抽出して別のファイルに保存したいことはありませんか？この記事では、VBAを使って簡単に実現します。手作業でのミスや時間の無駄を解消しましょう。

サンプルコード

VBA

Option Explicit
Sub ExtractRowsToNewWorkbook()
    Dim wb As Workbook, newWb As Workbook
    Dim ws As Worksheet, newWs As Worksheet
    Dim lastRow As Long, i As Long
    Dim searchRange As Range, cell As Range
    
    ' 元のワークブックとシートを指定
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet1")
    
    ' 新しいワークブックを作成
    Set newWb = Workbooks.Add
    Set newWs = newWb.Sheets(1)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 検索範囲を設定（例：A列）
    With ws.UsedRange.Columns("A")
        For Each cell In .Cells
            If InStr(cell.Value, "特定の文字列") > 0 Then
                lastRow = newWs.Cells(newWs.Rows.Count, "A").End(xlUp).Row + 1
                newWs.Range("A" & lastRow).Value = cell.EntireRow.Row
                ws.Rows(cell.EntireRow.Row).Copy Destination:=newWs.Rows(lastRow)
            End If
        Next cell
    End With
    
    ' 新しいワークブックを保存
    newWb.SaveAs ThisWorkbook.Path & "\抽出データ.xlsx"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

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