使用vba实现单元颜色的vlookup

Sub ColorVLOOKUP()
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim resultCell As Range
    
    ' 设置查找值
    lookupValue = Range("A1").Value
    
    ' 设置查找范围
    Set lookupRange = Range("B1:B10")
    
    ' 设置结果范围
    Set resultRange = Range("C1:C10")
    
    ' 遍历查找范围
    For Each resultCell In resultRange
        ' 判断单元格颜色是否与查找值匹配
        If resultCell.Interior.Color = lookupValue.Interior.Color Then
            ' 如果匹配，则将结果值填入结果范围对应的单元格
            resultCell.Value = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 1, False)
        End If
    Next resultCell
End Sub