コピー＆ペーストするExcel VBA：CopyとPasteSpecialの構文

Excelで直接コピーするVBA

Private Sub CopyCell()
    Range("E10:F10").Copy Destination:=Range("B8")

    '別シートへ
    Range("E10:F10").Copy Destination:=Worksheets("Sheet2").Range("B8")
End Sub

Copyの構文

Copy(Destination)

• Destination　（省略可能）貼り付け先をセル範囲のRangeオブジェクトで指定

Excelでクリップボードを使用しコピーするVBA

Private Sub CopyCellPaste()
    'クリップボードへコピー
    Range("E10:F10").Copy
        
    'ペースト
    Range("B8").PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=True, Transpose:=False

    'コピーモードの解除
    Application.CutCopyMode = False
End Sub

PasteSpecialの構文

PasteSpecial(Paste, Operation, SkipBlanks, Transpose)

• Paste　省略可能
  範囲の中で貼り付ける部分を指定します。
• Operation　省略可能
  貼り付けの操作を指定します。
• SkipBlanks 省略可能
  クリップボードに含まれる空白のセルを貼り付けの対象にしないようにするには、True を指定
  既定値は False
• Transpose 省略可能　バリアント型の値を使用。
  指定すると、貼り付けのときにデータの行と列を入れ替えるには、True を指定します。
  既定値は False