表达式.PasteSpecial(Paste,
Operation,
SkipBlanks,
Transpose)
Paste
Operation
例1:在选择的粘贴区域,全部粘贴,没有粘贴操作(加减乘除等操作),空白单元格也粘贴,不进行转置:
Selection.PasteSpecial
Paste:=xlPasteAll,
Operation:=xlNone,
SkipBlanks:=False,
Transpose:=False
因为后3个参数是没有操作或默认值,所以,可以将其省略,则简化为:
Selection.PasteSpecial
Paste:=xlPasteAll
==========================================
又因是全部粘贴,所以,干脆第1个参数也省略,成为:
Selection.PasteSpecial
可以使用
ActiveSheet.Paste
来代替上面的语句。
例2:在选择的粘贴区域,粘贴值,没有粘贴操作(加减乘除等操作),空白单元格也粘贴,进行转置:
Selection.PasteSpecial
Paste:=-4163,
Operation:=xlNone,
SkipBlanks:=False,
Transpose:=True
简化为:
Selection.PasteSpecial
Paste:=-4163,
Transpose:=True
温馨提示:内容为网友见解,仅供参考