【VBA】可視セル(フィルタ結果)をエラー処理付きで置換する方法

Option Explicit
Sub ReplaceVisibleCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Application.ScreenUpdating = False
    On Error GoTo ErrorHandler
    
    ' 最終行の取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 可視セルのみをループ処理
    Dim i As Long
    For i = 2 To lastRow ' 假设数据从第二行开始，第一行为标题行
        If ws.Rows(i).Hidden = False Then ' フィルタ結果の可視行のみ
            If ws.Cells(i, 1) Like "*旧文字列*" Then ' 置換対象のセルを判定
                ws.Cells(i, 1) = Replace(ws.Cells(i, 1), "旧文字列", "新文字列") ' 置換処理
            End If
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "置換が完了しました。", vbInformation
    Exit Sub
ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbExclamation
End Sub