エクセルで複数（100くらい）シートを一つにしたい

質問

ＰＤＦ（官庁関係の設計書）をエクセルに変換したときに複数のシート（100くらい）になって変換してしまい　いちいち　コピーしては貼付の繰り返し単純作業をもっと効率よくできる方法をおしえてください。列の幅　行の高さは全てのシートは同じです。
Excelbooks into 1 Sheet ver0.22　というソフトでは元の書式が崩れてしまって直すのに時間を費やしてしまいます。
よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
dim i
for i = 2 to worksheets.count
　worksheets(i).usedrange.entirerow.copy _
　worksheets(1).cells(worksheets(1).cells.specialcells(xlcelltypelastcell).row + 1,"A")
next i
end sub

F5キーを押してmacro1を実行する
ファイルメニューから終了してエクセルに戻り，シート１を別ブックに（新しいブックに）複製して保存する。