エクセル研究室−Excelの基本的な使い方、応用技を紹介

貼り付け編-エクセルのVBA集


貼り付け編

セルの内容をコピーして貼り付けるには?(その1)

'A1のセルの内容をC10のセルにクリップボード経由で貼り付けます。
Sub 貼り付け1()
    Range("A1").Copy
    ActiveSheet.Paste Range("C10")
End Sub



セルの内容をコピーして貼り付けるには?(その2)

'A1のセルの内容をC10のセルにクリップボード経由せずに貼り付けます
Sub 貼り付け2()
    Range("A1").Copy Range("C10")
End Sub



セルの内容をコピーして書式のみ貼り付けるには?

'A1のセルの内容をC10のセルに書式のみ貼り付けます
Sub 貼り付け_書式のみ()
    Range("A1").Copy
    Range("C10").PasteSpecial xlPasteFormats
End Sub



セルの内容をコピーして数値の加算をして貼り付けるには?

'A1のセルの内容をC10のセルに数値の加算を行って貼り付けます
Sub 貼り付け_加算()
    Range("A1").Copy
    Range("C10").PasteSpecial , xlPasteSpecialOperationAdd
End Sub



セルの内容をコピーして画像として貼り付けるには?

'A1のセルの内容をC10のセルに画像として貼り付けます
Sub 貼り付け_画像()
    Range("A1").CopyPicture xlScreen, xlPicture
    ActiveSheet.Paste Range("C10")
End Sub





ページトップ