在Excel中使用Vlookup時如何復制查找單元格的源格式？

在先前的文章中，我們討論了在Excel中的vlookup值時保持背景顏色的問題。 在本文的此處，我們將介紹一種在Excel中執行Vlookup時復制生成的單元格的所有單元格格式的方法。 請執行以下操作。

在具有用戶定義功能的Excel中使用Vlookup時復制源格式

在具有用戶定義功能的Excel中使用Vlookup時復制源格式

驚人！ 在Excel中使用高效選項卡，例如Chrome，Firefox和Safari！

每天節省50％的時間，並減少數千次鼠標單擊！

---

假設您有一個表格，如下所示。 現在，您需要檢查指定的值（在E列中）是否在A列中，並以C列中的格式返回相應的值。請執行以下操作以實現該目的。

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

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

VBA代碼1：Vlookup和帶有格式化的返回值

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Set xRg = Application.Range(xDicStr)
                xRg.Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

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

VBA代碼2：Vlookup和帶有格式化的返回值

Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
    End If
    Application.ScreenUpdating = True
End Function

4。 點擊 工具 > 參考。 然後檢查 Microsoft腳本運行時 盒子裡 參考– VBAProject 對話框。 看截圖：

5。 按 其他 + Q 退出鍵 Microsoft Visual Basic for Applications 窗口。

6.選擇一個與查詢值相鄰的空白單元格，然後輸入公式 =LookupKeepFormat(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？

---

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

• 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
• 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
• 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
• 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
• 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
• 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
• 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
• 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
• 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購... 

---

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...