Sub コピペ()
Range("A1").Copy
Range("B1").Select
ActiveSheet.Paste
Range("C1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
このコードよ、まずA1のセルんとこさコピーすっぺな。
そんで次にB1のセルさ選んで、そこにペーストすんだど。
そのあとC1のセルさ選んで、またペーストすっぺよ。
最後に Application.CutCopyMode = False を使って、コピー状態を解除してっぺな。
これでコピペ作業が終わる仕組みなんだっぺよ！
Sub コピペ()
Range("A1").Copy
Range("B1, C1").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
Sub コピペ()
Range("A1").Copy
Range("B1, C1").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
このコードでは、Range("B1, C1") のように複数のセルを直接指定して、一度に貼り付けを行ってるんだっぺ！これでスッキリ簡単になったべな
わくわく先輩
