VBA 隣のシートへ、コピーペーストするマクロ

質問があります




ボタンにマクロを登録して、押下するとシート３から特定の列4行のみ全てコピーして（100～500件で変動）、シート1の固定された開始地点からペーストするマクロです

以下のソースは文章で表現した通りのものとなっていますでしょうか？
------------------------------------------------------------------------------------
Sub ボタン登録コピーペースト ()

MsgBox "マクロを実行しました"

Sheets(3).Select‘コピー元データ（シート３）

Range("C:C,M:M,AE:AE,AF:AF").Select ‘4列の変動するデータすべて100～500件
‘選択します
Selection.Copy

Sheets(1).Select‘コピー先データ

Range("C70").Activate‘まず固定開始位置C70を選択する

Selection.PasteSpecial Paste:=xlPasteValuesApplication.CutCopyMode = False
‘4列のデータ数百件すべてコピーする

End Sub
------------------------------------------------------------------------------------

No.1 ベストアンサー 回答者： mu2011 回答日時： 2011/12/21 15:56

>ソースは文章で表現した通りのものとなっていますでしょうか？

　⇒残念ながらなっておりません。
　　実際に動作させれば、一目瞭然と思います。
　　・コメント記号が相違でコンパイルエラー「‘」→「’」（アポストロフィ記号）
　　・Selection.PasteSpecial Paste:=xlPasteValuesApplication.CutCopyMode = False
　　　不正コードとなるので以下のように２行に分割
　　　Selection.PasteSpecial Paste:=xlPasteValues
　　　Application.CutCopyMode = False

　　・又、コピーサイズと貼り付けサイズが相違しているのでエラーとなるのでコピーは
　　　最大５００行ならそのサイズ分を選択コピーしては如何でしょうか。
　　　（例えば、Range("C1").Resize(500)）
　　　複数のセル範囲を併せて参照するのならば、Unionメソッドが使用できます。

この回答へのお礼

基本的なことがわかっていないようです。ご指摘を受けなければ気づくのに長い時間がかかってしまうところでした。ありがとうございます

お礼日時：2011/12/26 01:06