Sub 删除一行()
Dim R As Long
'For R = 1 To Range("A65536").End(xlUp).Row Step 1
For R = 1 To Range("A65536").End(xlUp).Row Step 1
If InStr(Range("A" & R), "====") > 0 Then
Rows(R).Delete Shift:=xlUp
End If
Next
End
End Sub
需要xlsm后缀名的excel文件才能使用vba宏;使用alt +F11 快捷键 呼出 宏编辑器。