Excel 365 VBA复制粘贴值丢失精度，求解决方案

出现精度丢失的核心原因是xlPasteValues在处理浮点数时的隐式转换逻辑，和手动粘贴的精度处理机制存在差异。以下是两种可靠的解决方法：

方法1：直接单元格值赋值（推荐） #

绕过剪贴板的中间处理，直接读取源单元格的原始计算值（Excel内部存储的双精度浮点数）并赋值给目标区域，完全保留精度：

Dim sourceWB As Workbook
Dim sourceWS As Worksheet
Dim sourceRange As Range
Dim targetWS As Worksheet
Dim targetRange As Range
Dim lrow As Long, lcol As Long
Dim file As String ' 假设file已提前定义

Set sourceWB = Workbooks.Open(file)
Set sourceWS = sourceWB.Worksheets("Output_Data")

' 获取源数据区域
lrow = sourceWS.Cells(sourceWS.Rows.Count, 2).End(xlUp).Row
lcol = sourceWS.Cells(9, sourceWS.Columns.Count).End(xlToLeft).Column
Set sourceRange = sourceWS.Range(sourceWS.Cells(9, 2), sourceWS.Cells(lrow, lcol))

' 处理目标区域
Set targetWS = ThisWorkbook.Sheets("DATA")
targetWS.UsedRange.Clear
Set targetRange = targetWS.Range("A1").Resize(sourceRange.Rows.Count, sourceRange.Columns.Count)
targetRange.Value = sourceRange.Value ' 直接赋值，保留完整精度

sourceWB.Close SaveChanges:=False

优势： #

• 完全避免剪贴板带来的精度损失，和手动粘贴的精度一致
• 代码执行效率更高，无剪贴板操作的额外开销
• 避免因剪贴板内容被外部程序干扰导致的异常

方法2：使用带格式的粘贴方式 #

如果需要保留源单元格的数字格式，可改用xlPasteValuesAndNumberFormats替代xlPasteValues：

' 替换原代码中的PasteSpecial行
ThisWorkbook.Sheets("DATA").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

注意： #

这种方法仍依赖剪贴板，若源数据量较大，可能不如直接赋值稳定，但能同时保留数值精度和格式。

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