[[20120502155023]]　『複数のシートのデータを１枚のシートにまとめたい』（うにに）　ページの最後に飛ぶ

『複数のシートのデータを１枚のシートにまとめたい』（うにに）

[[20090213215838]]　『ワークシートを1枚に結合』
https://www.excel.studio-kazu.jp/kw/20090213215838.html

 を参考にマクロを作ったのですが、うまくいきません。

 各シートB1からW33までの範囲でデータがあり、50枚以上のシートがあります。
 それを、１つのシートにまとめたいのですが、下マクロでは、シートに何も
 コピペされません。

 Sub コピー()
    Dim i As Long
    Worksheets.Add before:=Worksheets(1), Count:=1
    For i = 2 To Worksheets.Count
        Sheets(i).Range("B1:W33").Copy Sheets(1).Range("A" & 33 * (i - 2) + 1)
    Next
    MsgBox "「" & Worksheets(1).Name & "」に全ワークシートのデータをまとめました。"
 End Sub

 OSバージョンはXPで、エクセルは2003です。
 よろしくお願いいたします。

 新しいブックで試して下さい。

 Sheet1のB1セルに「1B1」
 Sheet2のB1セルに「2B1」
 Sheet3のB1セルに「3B1」
 を入力して、マクロを実行です。

 先頭シートの
 A1セルに「1B1」
 A34セルに「2B1」
 A67セルに「3B1」
 が貼りついていると思います。

 そうでは無く、どうしたいのか　具体的にサンプルデータも使用して
 説明して貰えると良いと思います。

 (HANA)

 HANAさん、新しいBOOKで試したらおっしゃる通りになりました。
 データを抽出したいファイルを確認した所、１シート目はデータが入ってない真っ白でした。
 きちんとマクロは実行されていたのに、33行目まで真っ白だったので、実行されてないと
 勘違いしてました。
 どうもありがとうございました！おかげで、作業時間を大幅に短縮できました！

 てっきり「空行は無しにしてまとめたい」って事かと思いましたが。。。
 真っ白な33行　とか　有って良いのでしょうか？

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20120502155023]] 『複数のシートのデータを１枚のシートにまとめたい』（うにに） ページの最後に飛ぶ

[[20120502155023]]　『複数のシートのデータを１枚のシートにまとめたい』（うにに）　ページの最後に飛ぶ