VBAでsheetのコピー

質問

ご回答有難う御座いました。補足説明を致します。動作するとこまでは、出来たのですが、一点変更しました。：＝のコピーの所でデバッグすると、エラーになるので、＝だけにしました。すると動作するのですが、新しいsheetの名前が、コピー元のsheet名になります。そして、MsgBoxを入れると、エラーになります。また、1sheetだけがコピーされます。大変恐縮ですが、もう一度ご教授願います。補足説明なりますが、やりたい事は、拡張子がxlsmの中に名前のついた10個のsheetがあります。この10個のsheetを拡張子がxlsxのBookにコピーしたいのですが、このBook1のsheetをVBAから新に作成しBook2のsheet1に纏めたいのですが、纏め方は、Book2のsheet1の下から上に10sheetをコピーして、条件としてBook2のsheet1の名前は、固定で構いません。Book1の一番初めのsheetにコピーする時だけ3行目にある見出しだけは、Book2のsheet1に付けたく。それ以外のBook1のsheetは、デターだ4行目以降をコピーしたいのですが、また、コピーしたいsheetの範囲に列は、A1～AFで列は3～62までです。マクロはご教授頂いた、下記通りです。
Sub macro1()
Dim i As Long
Dim w0 As Workbook
Dim s As Worksheet
Set w0 = ActiveWorkbook

'１枚目シートから貼り付け先のブックを作る
w0.Worksheets(1).Copy
Set s = ActiveSheet

'２枚目以降のデータをコピーする
For i = 2 To w0.Worksheets.count
With w0.Worksheets(i)
.Range("A4:AF" & .Range("A65536").End(xlUp).Row).Copy
Destination = s.Range("A65536").End(xlUp).Offset(1)
End With
Next i
End Sub
これを先ほど書きました、マクロを教えて頂けませんでしょうか？何せ、マクロ初心者なので、msm相談箱がたよりです。何卒マクロを教えて頂きたく宜しくお願い申し上げます。

回答No.3

keithin · ベストアンサー

＞一点変更しました。
　：
＞エラーになるので、＝だけにしました

それでは全然ダメです。一体何をミスったのか不明ですが，少なくともそこは元に戻さないといけません。

で。
ご質問での説明が間違っていますが，コピーしたいのは各シートＡ４からＡＦ６２ということですね。
集約したシートのシート名とブック名を固定にしたいのが今回ヤリタイコトという事ですね。
前のマクロは捨てて，次のマクロにします。

sub macro2()
　dim i as long
　dim n as long
　n = 63
　worksheets(1).copy before:=worksheets(1)
　for i = 3 to worksheets.count
　　worksheets(i).range("A4:AF62").copy destination:=worksheets(1).cells(n, "A")
　　n = n + 59
　next i

　worksheets(1).move
　activesheet.name = "固定"
　activeworkbook.saveas filename:="Book2.xlsx", fileformat:=xlopenxmlworkbook
end sub

お礼

皆様、ご助言有御座います。別の方法で解決出来ました。本当に有難う御座います。

回答No.2

K Kazz（@JazzCorp）

.Range("A4:AF" & .Range("A65536").End(xlUp).Row).Copy
Destination = s.Range("A65536").End(xlUp).Offset(1)
ここがキモです！、おかしな改行はご法度！！
一行で書くか、以下のように「_」で継続させる。

'ここにセル範囲の最大を設定（仮に４行目（列：Ａ～ＡＦ列）から最大行の範囲をコピーしている）
.Range("A4 : AF" & .Range("A65536").End(xlUp).Row).Copy _
Destination:= s.Range("A65536").End(xlUp).Offset(1)

ぅう～ん？、こういうのは判り難いね！？
一体どんな名前で出力されるの？、やり直すとどうなる？？
いつの間にか「Book15」がデケても～た！！

回答No.1

K Kazz（@JazzCorp）

前回のＱ＆Ａは？