含不同特定值的行用不同颜色标记出来

sugh

求助：

      我现在想找出所有安装ifooter、淘宝、excel、IIS等程序的计算机IP，将所有包含有ifooter的行标记为黄色；包含淘宝的行标记为绿色；包含有excel的行标记为褚色等。

     因为我这里只是举例，所以只有7列，但是实际上可能是37列，行数有几万行，而且ifooter这个值可能出现在任何列中，所以查找这个ip相当困难。

     现在就想知道使用VBA编程，将所有包括这此字段的整行标记，不用手动来回查找。谢谢。

ykcbf1100

标色。。。。

gwjkkkkk

Option Explicit
Sub TEST()
    Dim regEx As Object, strPat$, Matches As Object
    Dim ar, i&, strJoin$, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
    ar = [{"ifooter","淘宝","excel","IIS";42,43,44,45}]
    For i = 1 To UBound(ar, 2): dic(ar(1, i)) = ar(2, i): Next
    strPat = Join(Application.Index(ar, 1), "|")
   
    With CreateObject("VBScript.RegExp")
        .ignorecase = True
        .Pattern = strPat
        With [A1].CurrentRegion
            .Interior.ColorIndex = xlNone
            ar = .Value
        End With
        For i = 2 To UBound(ar)
            strJoin = Join(Application.Index(ar, i), "")
            If .TEST(strJoin) Then
                Set Matches = .Execute(strJoin)
                Cells(i, 1).Resize(, UBound(ar, 2)).Interior.ColorIndex = dic(Matches(0).Value)
            End If
        Next i
    End With
   
    Set regEx = Nothing
    Beep
End Sub

gwjkkkkk

参与一下。。。

sugh

ykcbf1100 发表于 2023-2-17 10:23
标色。。。。

这个能用，非常感谢！

sugh

gwjkkkkk 发表于 2023-2-17 21:05
参与一下。。。

这个也很好，目的达到了。就是看不大懂，下了慢慢研究，非常感谢