VBA实现高亮含数组指定字符串单元格并删除未高亮行的问题

原代码存在的问题 #

• 变量命名冲突：误用Excel内置对象Cells作为自定义变量名，且变量声明不规范（Dim Cells, cella As Range中Cells实际为Variant类型，并非Range），循环变量cell与定义的变量名不一致。
• 删除逻辑错误：内层循环每遇到一个不匹配的数组元素就执行删行操作，导致只要有一个元素不匹配就删除行，而非所有元素都不匹配才删除。
• 遍历方向错误：从上往下删行会导致删除一行后下方行上移，跳过部分未检查的行。

修正后的代码 #

Sub HighlightAndDeleteRows()
    Dim ws As Worksheet
    Dim cell As Range
    Dim i As Integer, j As Integer
    Dim uB As Integer, lB As Integer
    Dim myArray As Variant
    Dim isMatch As Boolean
    
    Set ws = ActiveSheet
    Dim targetRange As Range
    Set targetRange = ws.Range("J2:J100")
    myArray = Array("ALM", "NYF", "NED", "NND", "NYW", "PAF", "PAD", "FLM", "ALD", "AZR", "CAR", "FLK", "NIO")
    
    uB = UBound(myArray)
    lB = LBound(myArray)
    
    ' 从下往上遍历，避免删除行后跳过数据
    For i = targetRange.Rows.Count To 1 Step -1
        Set cell = targetRange.Cells(i)
        isMatch = False
        
        ' 检查单元格是否匹配数组中任意元素
        For j = lB To uB
            If InStr(1, cell.Value, myArray(j)) > 0 Then
                isMatch = True
                Exit For ' 找到匹配项后立即退出内层循环，提升效率
            End If
        Next j
        
        If isMatch Then
            cell.Interior.ColorIndex = 35 ' 高亮匹配单元格
        Else
            cell.EntireRow.Delete ' 删除未匹配的整行
        End If
    Next i
End Sub

关键优化点 #

• 变量规范：改用targetRange替代内置Cells作为变量名，明确所有变量类型，避免类型混淆与命名冲突。
• 匹配逻辑：通过isMatch标记位，遍历完所有数组元素后再判断是否删行，确保只有完全不匹配的行才被删除。
• 反向遍历：从最后一行往上遍历，彻底解决删行后数据上移导致的遍历遗漏问题。
• 效率提升：找到匹配项后立即退出内层循环，减少不必要的遍历操作。

内容的提问来源于stack exchange，提问作者MFalcon