VBA中VLOOKUP可以找值，如何实现带颜色格式查找匹配

happy0620

shi353 发表于 2017-4-23 08:43
Sub test1()
Dim arr, i
Dim d As Object

还是谢谢你帮忙回答。

shi353

Sub test11()
Dim arr, i
Dim d As Object
Set d = CreateObject("scripting.dictionary")
    With Sheets("Sheet1")
        arr = .Range("a1").CurrentRegion
        For i = 2 To UBound(arr)
            d(arr(i, 1)) = .Cells(i, 2).Interior.ColorIndex & "■" & .Cells(i, 2)
        Next i
    End With
    Set A = Range([Sheet1!j2], [Sheet1!j18])
    For i = 1 To A.Cells.Count
        With A.Cells(i)
            .Offset(, 1) = Split(d(.Value), "■")(1)
            .Offset(, 1).Interior.ColorIndex = Split(d(.Value), "■")(0)
        End With
    Next
End Sub
是不是這樣! 左右調整一下即可!

seusbc

好厉害，学习下