在Excel中使用Vlookup時如何復制查找單元格的源格式?
在先前的文章中,我們討論了在Excel中的vlookup值時保持背景顏色的問題。 在本文的此處,我們將介紹一種在Excel中執行Vlookup時復制生成的單元格的所有單元格格式的方法。 請執行以下操作。
在具有用戶定義功能的Excel中使用Vlookup時復制源格式
在具有用戶定義功能的Excel中使用Vlookup時復制源格式
假設您有一個表格,如下所示。 現在,您需要檢查指定的值(在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%,每天為您減少數百次鼠標點擊!


#24738
網站主持人對此評論進行了最小化
0
0

#24739
網站主持人對此評論進行了最小化
即時報告
0
0

#24777
網站主持人對此評論進行了最小化
0
0

#24778
網站主持人對此評論進行了最小化
即時報告
0
0

#24779
網站主持人對此評論進行了最小化
即時報告
0
0

#24780
網站主持人對此評論進行了最小化
即時報告
0
0

#24980
網站主持人對此評論進行了最小化
0
0

#24998
網站主持人對此評論進行了最小化
0
0

#25009
網站主持人對此評論進行了最小化
即時報告
0
0

#25016
網站主持人對此評論進行了最小化
0
0

#25026
網站主持人對此評論進行了最小化
即時報告
0
0

#25027
網站主持人對此評論進行了最小化
即時報告
0
0

#26266
網站主持人對此評論進行了最小化
即時報告
0
0

#26267
網站主持人對此評論進行了最小化
0
0

#26268
網站主持人對此評論進行了最小化
0
0

#26269
網站主持人對此評論進行了最小化
即時報告
0
0

#26414
網站主持人對此評論進行了最小化
即時報告
0
0

#26415
網站主持人對此評論進行了最小化
即時報告
0
0

#26866
網站主持人對此評論進行了最小化
0
0

#26867
網站主持人對此評論進行了最小化
即時報告
0
0

#28180
網站主持人對此評論進行了最小化
即時報告
0
0

#28181
網站主持人對此評論進行了最小化
即時報告
0
0

#28672
網站主持人對此評論進行了最小化
即時報告
0
0

#28673
網站主持人對此評論進行了最小化
0
0

#28840
網站主持人對此評論進行了最小化
0
0

#29321
網站主持人對此評論進行了最小化
0
0

#29414
網站主持人對此評論進行了最小化
即時報告
0
0

#29415
網站主持人對此評論進行了最小化
即時報告
0
0

#31228
網站主持人對此評論進行了最小化
0
0

#34516
網站主持人對此評論進行了最小化
0
0
這裡還沒有評論