如何使用 Vlookup 查找並返回帶有單元格批註的匹配值？

當您使用 Vlookup 函數返回匹配值時，它只會提取值而不包括格式，例如填充顏色、字體或批註等。但是，有時候您可能需要通過 Vlookup 查找並返回包含批註的匹配值，以獲得如下截圖所示的結果。在 Excel 中該如何解決這個問題呢？

使用 VBA 程式碼進行 Vlookup 並返回帶有單元格批註的匹配值

使用 VBA 程式碼進行 Vlookup 並返回帶有單元格批註的匹配值

以下 VBA 程式碼可以幫助您進行 Vlookup 並返回帶有其批註的匹配值，請按照以下步驟操作：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，然後將以下程式碼複製並粘貼到模組視窗中。

VBA 程式碼：Vlookup 並返回帶有單元格批註的匹配值：

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. 然後保存程式碼並關閉程式碼視窗，在空白單元格中輸入此公式：=vlookupcomment(H2,A2:C10,3,FALSE) 以定位結果，並按下 Enter 鍵，匹配值以及批註將立即返回，請參見截圖：

備註：在上述公式中，H2 是您要返回其對應值的查找值，A2:C10 是您要使用的數據表，數字 3 是包含您要返回的匹配值的列號。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！