エクセルで多数のシートをまとめる方法

エクセルで10以上あるシートを一発でひとつにまとめる方法はあるでしょうか？

コピー＆ペーストを繰り返すしかないのでしょうか…

仕事で明日やらなければならないので、
お分かりになる方、是非教えてください！

No.4 ベストアンサー 回答者： keithin 回答日時： 2011/10/09 02:05

まぁ既出回答にもあるように，１０数回程度コピー貼り付けすることで，どうという作業ではないとは思います。

さておき。
ご利用のエクセルのバージョンが不明ですが，ご利用のOfficeのバージョンによっては

１．ワードを起動する
２．挿入のファイルからエクセルブックを指定する
３．添付図のようなダイアログが表示されたらラッキー成功です，ブック全体を指定して挿入する
４．Ctrl+Aで全体を選び，コピーして，エクセルの新しいシートに貼り付ける

と一発でできます。
添付図のようにならなかったときは，出来ません。

この回答へのお礼

ご回答ありがとうございます。

ワードでできる方法もあるんだ！と思い、
早速やってみましたが、職場のエクセルでは添付していただいた図のようなものはでできませんでした。。

今後の参考にさせていただきたいと思います。

ちなみによく確認をしたら、シートは１９シートありました。
地道にコピペしてみたいと思います。

ありがとうございました。

お礼日時：2011/10/09 13:11

No.5 回答者： KURUMITO 回答日時： 2011/10/09 11:36

仮に各シートは同じ項目で同じ表になっているとします。

１行目は必ず項目名が入力されているとします。２行目から下方にデータが入力されているとします。
各シートの２行目から下方のデータをまとめのシートにコピーして表示させることを関数で行うとしたら次のようにすればよいでしょう
まとめのシートでの操作を次に示します。
B１セルから右横の各セルには１０以上あるシート名(文字列）を例えばSheet１のように入力します。
A２セルには０を入力します。B２セルには次の式を入力して右横方向にオートフィルドラッグします。

=IF(B1="","",MAX($A2:A2)+COUNTIF(INDIRECT(B1&"!$A:$A"),"?*")-1)

A３セルから横方向には各シート上にある項目名をコピーして並べます。

A４セルには次の式を入力して横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(OR(ROW(A1)>MAX($2:$2),A$3=""),"",IF(INDEX(INDIRECT(INDEX($1:$1,IF(COUNTIF($2:$2,ROW(A1)),MATCH(ROW(A1),$2:$2,0),MATCH(ROW(A1),$2:$2,1)+1))&"!A:J"),ROW(A1)+1-INDEX($2:$2,IF(COUNTIF($2:$2,ROW(A1)),MATCH(ROW(A1),$2:$2,0)-1,MATCH(ROW(A1),$2:$2,1))),COLUMN(A1))=0,"",INDEX(INDIRECT(INDEX($1:$1,IF(COUNTIF($2:$2,ROW(A1)),MATCH(ROW(A1),$2:$2,0),MATCH(ROW(A1),$2:$2,1)+1))&"!A:J"),ROW(A1)+1-INDEX($2:$2,IF(COUNTIF($2:$2,ROW(A1)),MATCH(ROW(A1),$2:$2,0)-1,MATCH(ROW(A1),$2:$2,1))),COLUMN(A1))))

これで各シートのデータがまとめのシートに表示されることになります。

この回答へのお礼

ご回答ありがとうございます。

分かりやすいご説明、ありがとうございます！
早速次回試してみたいと思います！

お礼日時：2011/10/09 22:14

No.3 回答者： neKo_deux 回答日時： 2011/10/08 23:38

例えば、Sheet10とかで、

Ａ列に、
A1:Sheet1
A2:Sheet2
A3:Sheet3
のシート名を入力しておき、

B1:=INDIRECT(A1&"!$A$1")
B2:=INDIRECT(A2&"!$A$1")
以下コピペ

とかってやると、列挙したシート名の$A$1セルの内容を抜き出せるとか。

--
10あるシートの内容が、1枚のシートに入る容量なら、単純にコピー＆ペーストを繰り返しても10回かそこらの作業ですし。
有効なシートの範囲を選択する方法だと、シート選んで、[Ctrl]+[Home]、[Ctrl]+[Shift]+[End]だとか。

この回答へのお礼

ご回答ありがとうございます。

[Ctrl]+[Home]、[Ctrl]+[Shift]+[End]で選択すると、
一気に範囲を指定できるんですね。
これでやってみたいと思います。

お礼日時：2011/10/09 13:08

No.2 回答者： imogasi 回答日時： 2011/10/08 22:55

方法はないでしょう。

人間の繰り返し作業ををVBAでやることは出来ます。自動でやってくれるイメージです。
しかし明日までということだと、質問者はVBAプログラムの経験が無いだろうから出来ません。
１０シートぐらいのコピペは、ここに質問して、回答を待つことに比べたら直ぐ出来てしまいます。
仕事でエクセルを使うにはVBAが出来ることが必須というのが私の持論です（表の組み換えなどが頻繁にする必要がありえるからです）。表の組み換えなどは、関数では、特別の思い付き（スキル）が必要で、式が複雑になったりする。
ーーー
質問に書いてないが、各シートの項目構成や順序は同じなのだろうね。書いておくべきだ。難易大きく左右する。

この回答へのお礼

ご回答ありがとうございます。

私には高度なことのようです。。
各シートの項目構成順序は同じです。
商品名・在庫数・仕入額等が入った表を、
商品のカテゴリごとにシートに分けてあります。
ちなみにもう一度確認したら、シートは１９シートありました。
コピペでやってみたいと思います。

お礼日時：2011/10/09 13:06

No.1 回答者： Ma-yan_bh1011 回答日時： 2011/10/08 22:18

「ひとつにまとめる」がどういう意味かにもよりますが、内容を1枚のシートに集めるという意味でしたら「そういう機能」はありません。

この回答へのお礼

ご回答ありがとうございます。

内容を１枚のシートに集めるという意味です。
やはり無理ですか。ありがとうございました。

お礼日時：2011/10/09 13:06