如何在Excel中進行vlookup並返回背景色以及查找值？

假設您有一個如下圖的表格。現在你要檢查指定的值是否在A列中，然後回傳C列中對應的值及其背景顏色。文章中的方法可以幫助您解決問題。

Vlookup並通過用戶定義的函數返回具有查找值的背景色

Vlookup並通過用戶定義的函數返回具有查找值的背景色

請執行以下操作以在Excel中查找值並返回其對應的值以及背景色。

1.在工作表中包含您要vlookup的值，右鍵單擊工作表選項卡，然後選擇 查看代碼 從上下文菜單中。 看截圖：

2.在開幕 Microsoft Visual Basic for Applications 窗口，請將下面的VBA代碼複製到“代碼”窗口中。

VBA代碼1：Vlookup並返回具有查找值的背景色

Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Range(xDic.Keys(I)).Interior.Color = _
                Range(xDic.Items(I)).Interior.Color
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
End Sub

3。 然後點擊 插入 > 模塊，並將以下 VBA 代碼 2 複製到模塊窗口中。

VBA代碼2：Vlookup並返回具有查找值的背景色

Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepColor = ""
        xDic.Add Application.Caller.Address, ""
    Else
        LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
    End If
End Function

4.插入兩個代碼後，然後單擊 工具 > 參考。 然後檢查 Microsoft腳本運行時 盒子裡 參考– VBAProject 對話框。 看截圖：

5。 按 其他 + Q 退出鍵 Microsoft Visual Basic for Applications 窗口，然後返回工作表。

6. 選擇與查找值相鄰的空白單元格，然後輸入公式 =LookupKeepColor(E2,$A$1:$C$8,3) 進入公式欄，然後按Enter鍵。

備註： 在公式， E2 包含您要查找的值， $ A $ 1：$ C $ 8 是表格範圍和數字 3 表示您將返回的相應值位於表的第三列。 請根據需要更改它們。

7. 繼續選擇第一個結果單元格，然後向下拖動填充手柄以獲取所有結果及其背景顏色。 請參閱屏幕截圖。

相關文章：

• 在Excel中使用Vlookup時如何復制查找單元格的源格式？
• 如何在Excel中vlookup和返回日期格式而不是數字？
• 如何在Excel中使用vlookup和sum？
• 如何在Excel中相鄰或下一個單元格中的vlookup返回值？
• 如何在Excel中vlookup值並返回true或false / yes或no？