【VBA】形式を選択して貼り付ける方法【PasteSpecialを使う】

参考元：【VBA】形式を選択して貼り付ける方法【PasteSpecialを使う】
https://daitaideit.com/vba-pastespecial/

VBAで形式を選択して貼り付ける
PasteSpecialを使う

形式を選択して貼り付ける、PasteSpecialは、次のように入力して使います。

「セル.PasteSpecial Paste:=形式」

形式には、次のような形式があります。

すべて（xlPasteAll）
数式（xlPasteFormulas）
値（xlPasteValues）
書式（xlPasteFormats）
コメントとメモ（xlPasteComments）
入力規則（xlPasteValidation）
コピー元のテーマを使用してすべて貼り付け（xlPasteAllUsingSourceTheme）
罫線を除くすべて（xlPasteAllExceptBorders）
列幅（xlPasteColumnWidths）
数式と数値の書式（xlPasteFormulasAndNumberFormats）
値と数値の書式（xlPasteValuesAndNumberFormats）
すべての結合されている条件付き書式（xlPasteAllMergingConditionalFormats）
また、次のように「Transpose」を使うことで、貼り付ける値を「転置」することができます。

「セル.PasteSpecial Paste:=形式, Transpose:=True」

では、それぞれの形式で貼り付けてみましょう。

　
形式を「すべて」で貼り付けてみます。
引数には、「Paste:=xlPasteAll」を使います。

Sub TEST1()
    
  'コピー
  Range("A1").CurrentRegion.Copy
  
  'すべて
  Range("D1").PasteSpecial Paste:=xlPasteAll
  
End Sub