'2016选择性粘贴
With ThisWorkbook.Sheets("计算")
.[A1].PasteSpecial Paste:=xlPasteValues
End With
'其他版本需要工作表选定
With ThisWorkbook.Sheets("计算")
.Parent.Activate
.Select
.[A1].PasteSpecial Paste:=xlPasteValues
End With
'2016选择性粘贴
With ThisWorkbook.Sheets("计算")
.[A1].PasteSpecial Paste:=xlPasteValues
End With
'其他版本需要工作表选定
With ThisWorkbook.Sheets("计算")
.Parent.Activate
.Select
.[A1].PasteSpecial Paste:=xlPasteValues
End With
本文标题:选择性粘贴兼容性
本文链接:https://www.haomeiwen.com/subject/wglggttx.html
网友评论