VBA不使用剪贴板实现单元格区域按值粘贴问题求解

• 你调用Copy方法时直接传入了目标位置参数，这个语法会默认把源区域的所有内容（公式、格式、批注等）全量复制到目标位置，后续接的PasteSpecial xlPasteValues属于无效调用，根本不会执行
• 就算调整为标准的先Copy、后PasteSpecial的写法，整个流程依然会占用系统剪贴板，不符合你不借助剪贴板的要求

VBA里不通过剪贴板复制值的核心逻辑是直接对等赋值单元格的Value属性，整个过程不调用剪贴板相关接口，仅传递单元格的显示值，执行效率远高于复制粘贴方案。
修正后的可直接运行代码：

' 获取源区域最后一行行号
NbRowsPnLD1 = PnLD1WS.Range("A1").End(xlDown).Row
' 绑定源区域
Dim sourceRange As Range
Set sourceRange = PnLD1WS.Range(PnLD1WS.Cells(1, 1), PnLD1WS.Cells(NbRowsPnLD1, 228))
' 目标区域调整为和源区域相同尺寸，直接赋值值属性，完成无剪贴板值复制
With PnLD2WS.Cells(1, 1)
    .Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
End With

• 完全不接触系统剪贴板，不会覆盖用户剪贴板内已存的内容
• 仅复制单元格计算后的值，不会携带源区域的公式、格式、条件格式、批注、数据验证等任何附加内容，和手动选「仅粘贴值」效果完全一致
• 大区域复制场景下，执行速度比剪贴板粘贴方案快10倍以上，不会出现界面卡顿

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