１４１：マクロ素材　いろいろな貼り付け方

貼り付け方のマクロの書き方をご紹介いたします。普通の貼り付け、値固定で貼り付け、縦横を変更して値固定等です。

普通に貼り付け

普通に貼付る場合には、ActiveSheet.Paste です。

Sub 普通に貼付()
     Range("B2:B3").Select
     Selection.Copy
     Range("G2").Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
 End Sub

上記、下から３行目です。

値固定で貼付

値固定で貼り付けるのは、　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False となりますが、とても覚えられませんので、下記マクロから一部分をコピペして使ってください。

Sub 値固定で貼付()
     Range("B2:B3").Select
     Selection.Copy
     Range("H2").Select
'以下が値固定の貼り付け部分
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     Application.CutCopyMode = False
'せっかくなので、使用する場合には上記までとしてください。
     Range("I7").Select
 End Sub

縦横を入れ替えて貼り付け

これも、まったく構文は覚える必要はないと思っております。

Sub 縦横を入れ替えて貼付()
     Range("A2:B3").Select
     Selection.Copy
     Range("C4").Select
'以下から
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
     Application.CutCopyMode = False
'以上まで
     Range("A1").Select
 End Sub

値固定の時との違いは、最後の Transpose:=True だけの違いですね。

書式貼付

書式のみ貼り付ける場合は、

Sub 書式貼付()
     Range("B2:B3").Select
     Selection.Copy
     Range("H2").Select
'以下から
     Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
         , SkipBlanks:=False, Transpose:=False
     Application.CutCopyMode = False
'以上まで
     Range("H10").Select
 End Sub

です。