选择性粘贴兼容性
2017-03-09 本文已影响18人
林万程
'2016选择性粘贴
With ThisWorkbook.Sheets("计算")
.[A1].PasteSpecial Paste:=xlPasteValues
End With
'其他版本需要工作表选定
With ThisWorkbook.Sheets("计算")
.Parent.Activate
.Select
.[A1].PasteSpecial Paste:=xlPasteValues
End With
