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

Option Explicit
Sub SaveMatchingRowsToNewWorkbook()
    Dim ws As Worksheet, wbSrc As Workbook, wbDest As Workbook
    Dim lastRow As Long, i As Long
    Dim searchValue As String
    
    ' ソースワークブックとシートを設定
    Set wbSrc = ThisWorkbook
    Set ws = wbSrc.Sheets("Sheet1")
    
    ' 検索文字列を指定（ここでは「完全一致」とするための例として使用）
    searchValue = "完全一致"
    
    ' ターゲットワークブックを作成
    Set wbDest = Workbooks.Add
    
    ' 画面更新停止と警告オフ
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 各行の処理
    For i = 1 To lastRow
        If ws.Cells(i, 1).Value = searchValue Then
            ' 完全一致した行をコピー
            ws.Rows(i).Copy Destination:=wbDest.Sheets(1).Rows(wbDest.Sheets(1).UsedRange.Rows.Count + 1)
        End If
    Next i
    
    ' 新しいワークブックを保存
    wbDest.SaveAs ThisWorkbook.Path & "\完全一致データ.xlsx"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub