關於粘貼的一些宏，閒暇時收集幾個，新手推薦！

普通的複製粘貼

Sub 宏1()

'Range("B1").Select

Selection.Copy ‘’ 複製

Range("A1").Select

ActiveSheet.Paste ‘’ 粘貼

End Sub

Selection.Cut ‘’ 剪切

二、選擇性粘貼（轉置）

Sub 宏7()

Range("B1:B5").Select

Selection.Copy

Range("B9").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

End Sub

Selection.PasteSpecial Paste:=xlPasteValues（數值）, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False 數值

Selection.PasteSpecial Paste:=xlPasteFormulas（公式）, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=True, Transpose:=False 格式-跳過單元格

閱讀更多 淡墨留餘香 的文章

關鍵字: Operation Range Select