VBA中使用PasteSpecial xlPasteValues如何保留全部小数位数

问题原因 #

你的代码仅使用xlPasteValues粘贴数值，新建工作簿的默认单元格格式可能设置为保留两位小数，导致数值显示被截断；同时复制粘贴操作可能受剪贴板格式影响，引发精度丢失。

解决方案 #

方法1：同时粘贴值与数字格式

将PasteSpecial的参数改为xlPasteValuesAndNumberFormats，同步粘贴数值和原单元格的数字格式，确保小数位完整保留：

Selection.Copy

Set TempWB = Application.Workbooks.Add(1)
With TempWB.Sheets(1).Range("A1")
  .PasteSpecial xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False ' 清除剪贴板状态

方法2：直接赋值（更高效）

跳过复制粘贴操作，直接将源区域的值赋值给目标区域，完全避免剪贴板的影响，精度不会丢失：

Set TempWB = Application.Workbooks.Add(1)
' 调整目标区域大小与源区域一致后赋值
TempWB.Sheets(1).Range("A1").Resize(Selection.Rows.Count, Selection.Columns.Count).Value = Selection.Value

补充说明 #

• 方法2的执行效率更高，处理大数据量时不会占用剪贴板资源。
• 如果只是显示问题（实际数值完整但仅显示两位小数），也可手动将目标单元格格式改为“常规”或自定义小数位数，但上述两种方法能从根源解决问题。

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