Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1676 / 76734

←次へ　｜　前へ→


	【80706】Re:For Next ついてお願いします

マナ - 19/4/17(水) 18:49 -


	引用なし

	パスワード

▼初心者さん：
>B8とC8をB9C9からB30C30まで貼り付けたいのですが
>出来ずに困っています。

もう見ていないかもしれませんが…

手操作だと、１行ずつ何回も貼り付けを繰り返しませんよね。
B9:C30を選択して１回で貼り付けると思います。

マクロでも同じですよ。

Sub test()

　　Range("B8:C8").Select
　　Selection.Copy
　　Range("B9:C30").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False

End Sub

で、マクロだとセルを選択する必要はないので
シンプルに、こんな記述にします。

Sub test2()

　　Range("B8:C8").Copy Range("B9:C30")

End Sub

6 hits

▼

【80701】For Next ついてお願いします 初心者 19/4/17(水) 11:21