对宏VBA代码进行了一些修改，以便在存在特定值时删除行

Sub DeleteRowsWithSpecificValue()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"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).Delete
        End If
    Next i
End Sub