清除特定行中的内容vba

Sub ClearSpecificRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = lastRow To 1 Step -1
        ' 判断是否满足特定条件，这里以第一列的值为例
        If ws.Cells(i, 1).Value = "特定条件" Then
            ' 清除该行中的内容
            ws.Rows(i).ClearContents
        End If
    Next i
End Sub