此VBA代码在Excel 2013上运行(在多台不同的计算机上):
Sub CopyStaticData()
Application.ScreenUpdating = False
Sheets("Data Input").Range("Input_Station_ID").Copy
Sheets("Data Received").Range("Data_Station_ID").PasteSpecial Paste:=xlPasteValues
...
但是,在Excel 2016上,它会在最后一行引发运行时错误:
错误1004:对象'Range'的方法'PasteSpecial'失败
我尝试用其显式代码(-4163)替换xlPasteValues - 无济于事。
有什么想法吗?可能的Microsoft兼容性问题?
答案 0 :(得分:2)
仅用于粘贴值,我建议不要使用副本。
相反,简化为RangeB.value = RangeA.value
。
更容易,更快,没有棘手的剪贴板,用一个小行写成。