Excel-VBA-遍历并根据字符串数组替换指定单元格的宏 | 时鹏亮的Blog

请知悉：本文最近一次更新为 11年前，文中内容可能已经过时。

以下宏涉及遍历，数组，删除指定行等内容。

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

如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。

如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。

尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。

与《Excel-VBA-遍历并根据字符串数组替换指定单元格的宏》相关的博文：

2
留言

阳柯_GIS

【🚶访客】

没有替换，但是还是感谢！