Excel VBA宏实现粘贴单元格显示值解决VLOOKUP格式不匹配问题

核心逻辑：直接调用单元格的.Text属性，即可获取和视觉显示、复制到记事本完全一致的内容，无需借助剪贴板或第三方中转。

可直接使用的宏代码 #

版本1：直接替换原区域内容为显示值 #

转换后原单元格会存储显示的文本内容（比如原数值600会变成文本0600.00），可直接被VLOOKUP正常匹配。

Sub 转换显示值为实际存储值()
    Dim targetRng As Range, cel As Range
    ' 默认处理当前选中的单元格区域，如需固定区域可替换为 Set targetRng = Sheets("你的表名").Range("A:A") 这类写法
    Set targetRng = Selection
    For Each cel In targetRng
        If Not IsEmpty(cel.Value) Then
            cel.Value = cel.Text
        End If
    Next
End Sub

版本2：提取显示值到相邻列（不修改原数据） #

如果需要保留原列的数值格式，用这个版本，提取结果会输出到选中区域右侧紧邻的列：

Sub 提取显示值到相邻列()
    Dim targetRng As Range, cel As Range
    Set targetRng = Selection
    For Each cel In targetRng
        If Not IsEmpty(cel.Value) Then
            cel.Offset(0, 1).Value = cel.Text
        End If
    Next
End Sub

注意事项 #

• 运行宏前建议备份原始数据，版本1会修改原单元格的存储类型（从数值转为文本）
• .Text属性返回的内容和单元格列宽、当前显示状态完全一致，要确保运行宏时目标列列宽足够，不会出现###的显示错误，否则提取结果也会是###
• 不要用xlPasteValues方式粘贴，该方法读取的是单元格.Value属性也就是底层原始数值，无法拿到格式化后的显示内容，和你手动复制粘贴值的效果一致。

内容的提问来源于stack exchange，提问作者Pluoton