打开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
Excel 使用vba脚本按条件清除行数据
最新推荐文章于 2024-06-30 21:34:27 发布