请知悉：本文最近一次更新为 12年 前，文中内容可能已经过时。
以下宏涉及遍历，数组，删除指定行等内容。
Sub DELCO()
Dim arrString
Dim Temp
arrString = Array("要删除的关键字", "要删除的关键字2", "要删除的关键字3")
Dim i As Integer
i = 0
Dim A
For lie = 1 To 1 '仅遍历第一列所有行
For hang = 1 To ActiveSheet.UsedRange.Rows.Count '遍历第一行到当前表总行数
A = Cells(hang, lie)
If A <> "" Then '如果单元格有值，就执行下面的操作
For Each Temp In arrString '对数组每个字符串进行检查
If (InStr(1, A, Temp) > 0) Or LenB(A) <= 3 Or LenB(A) > 30 Then '如果找到对应字符串或者所在行内容小于4或者大于30，将全部删掉
Cells(hang, 2) = "删除" '在第二列对应行设定值为删除，不想第二列的自己改数字
i = i + 1
Exit For '如果检查到则退出循环继续下一行
End If
Next
End If
Next
Next
MsgBox (i & "行找到")
End Sub
如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。