おやじのブログ

今回は、前回の「文字、背景色も含めセルのコピー」ではなく
「文字、背景色」以外のセルのコピーをしてみました。
このセルのコピー方法については、下記の２つの方法をお伝えします
【課題】
・A1セル～B6セルをコピーする
・D1セル～E6セルにペーストする

【VBA】

※方法１

Sub セルコピー()
    Range("A1:B6").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

※方法２

Sub セルコピー()
    Range("D1:E6").Value = Range("A1:B6").Value
End Sub

簡単な説明
【方法１】
「Range("A1:B6").Copy」は、A1〜B6をコピーする
「xlPasteValues」は、値のみ貼り付けする
「Application.CutCopyMode = False」は、貼り付けが終わってコピーモードを解除する
【方法２】
「Range("D1:E6").Value = Range("A1:B6").Value」は、A1〜B6の範囲をD1〜E6に貼り付ける

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

• シェア
• 
• 
• 
• 

今回は、セルのコピーをしてみました。
文字の色、背景色もコピーします。
このセルのコピー方法については、下記の２つの方法をお伝えします
【課題】
・A1セル～B6セルをコピーする
・D1セル～E6セルにペーストする

【VBA】

※方法１

Sub セルコピー()
    Range("A1:B6").Copy Range("D1")
End Sub

※方法２

Sub セルコピー()
    Range("A1:B6").Copy Destination:=Range("D1")
End Sub

簡単な説明
【方法１】
「Range("A1:B6").Copy Range("D1")」は、A1〜B6をコピーしてD1〜E6にペーストする
【方法２】
「Destination」は、貼り付け先のセル範囲を表す

あなたのお役に立てるなら、コピーして使用してください。

今後も勉強した内容を記載して行きますので、お役に立てるものがあれば使ってください。

VBA開発もしておりますので開発のご要望があればご連絡をください。

VBA開発依頼受付はこちらから

• シェア
• 
• 
• 
•