Excel 使用vba脚本按条件清除行数据

打开Excel 时右击相关sheet 进行操作

          eg:sheet1-->右键-->查看代码-->粘入编辑好的vba脚本-->执行

Sub Delrows()
	Dim Arr, k&
	Arr = [A1].CurrentRegion
	Application.ScreenUpdating = False
	For k = UBound(Arr) To 1 Step -1
		If InStr(Arr(k,7),"要删除内容" Then
			Rows(k).Delete
		End If
	Next
	Application.ScreenUpdation = TRUE
End Sub

其中：

        (k,7)7代表左起第七列
可以使用 + 进行条件拼接,需要折行时使用' _'连接行末尾
InStr(Arr(k,7),"要删除内容" + InStr(Arr(k,7),"要删除内容" + InStr(Arr(k,7),"要删除内容" _
InStr(Arr(k,7),"要删除内容" Then