excel vba根据条件删除一行

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 快捷键 呼出 宏编辑器。