在Excel中使用Vlookup时，如何复制查找单元格的源格式？

在之前的文章中，我们已经讨论过在Excel中进行Vlookup时保留背景颜色的方法。本文将介绍一种在Excel中执行Vlookup时复制结果单元格所有格式的方法。请按照以下步骤操作。

使用用户定义函数在Excel中进行Vlookup时复制源格式

使用用户定义函数在Excel中进行Vlookup时复制源格式

假设您有如下截图所示的表格。现在，您需要检查指定值（在E列中）是否存在于A列中，并返回C列中带格式的对应值。请按照以下步骤实现该功能。

1. 在包含要查找值的工作表中，右键单击工作表标签，然后从上下文菜单中选择查看代码。参见截图：

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. 点击工具 > 引用。然后在引用 – VBAProject对话框中勾选Microsoft Script Runtime框。参见截图：

5. 按Alt + Q键退出Microsoft Visual Basic for Applications窗口。

6. 选择查找值旁边的一个空白单元格，然后在编辑栏中输入公式=LookupKeepFormat(E2,$A$1:$C$8,3)，然后按Enter键。

注意：在公式中，E2包含要查找的值，$A$1:$C$8是表格区域，数字3表示要返回的对应值位于表格的第三列中。请根据需要更改它们。

7. 继续选中第一个结果单元格，然后向下拖动填充柄以获取所有带格式的结果，如下截图所示。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中使用Vlookup并返回背景颜色以及查找值？
• 如何在Excel中使用Vlookup并返回日期格式而不是数字？
• 如何在Excel中使用Vlookup和求和？
• 如何在Excel中使用Vlookup返回相邻或下一个单元格中的值？
• 如何在Excel中使用Vlookup返回值为真/假或是/否？