シートを一度で増やす方法

質問

質問させていただきます。
Excelで次のようなものを作るつもりです。
「100種類の品目と値段が書いてある表があり、それを種類ごとにシートに振り分けて表を分類する」
つまり、100種類分のシートを追加してそれぞれ種類ごとに表としてまとめるわけです。
手作業でシートを100種類分増やしていくのは大変なので困っております。シートを指定の枚数いっぺんに増やす方法はありませんでしょうか。ご存知の方がおりましたらお教えください。よろしくお願い致します。

回答No.4

imogasi

シートを１００枚増やすのはVBAなどで簡単だが
（１）名前をどうするか
（２）データを１００種類の品目に分類して各シートに分ける必要が有るのでしょう。シートだけ作ってもしょうがないのでしょう。
（３）ある行に注目したとき、その行はどの分類のシートに行くべきなのか、どこで判りますか。
これらを書かずして質問するから、中途半端では。
どうもこれらのことを、全体を解決するには、VBAを勉強してもらわないと出来ないのでは。
ーーー
参考
Sheet1のA１：A3に
りんご
ぶどう
桃
と有るとする。
Sub test01()
For i = 1 To 3
Worksheets.Add.Name = Worksheets("Sheet1").Cells(i, "A")
Next i
End Sub
を実行すると
りんご
ぶどう
桃
という名のシートがそれぞれ（計３つ）できる。
Sub test02()
Worksheets.Add Count:=4
End Sub
で名前はお任せの４シートが出来る。

回答No.3

某HN クロメート(Chromate)（@CoalTar）

求める形がわかりませんが
1. 品目をページのフィールドとしてピボットテーブルを作成する
2. ピボットテーブルツールバーからピボットテーブル-ページの表示
これで品目の名前の付いたシートが出来上がります。

お礼

この作業をマクロにしたときに、できるだけ短いコードで書くとしたらどのように書くのかと考えていたのです。
品目ごとにオートフィルタで表を作ってコピーして→シートを増やして→品目ごとの表を貼り付ける。これを１００品目繰り返せば良いのですが…　簡潔にコードを書く方法が思いつきませんでした。

補足

ありがとうございました。
ピボットテーブルは今勉強中です。
たしかに一度に増やさなくても、表を分類するごとにシートを一つずつ増やしながら分類していけば良いのかも知れません。

回答No.2

gyouda1114

まとめて入れる方法はわかりませんが
ショートカットをどうぞ
Shift+F11で追加できます。

但し、Sheet100枚だとパソコンの能力にもよりますがExcelが死ぬなんてことがないことを祈ります。

お礼

非常に参考になりました。
このショートカットは役に立ちそうですね。
ありがとうございました。

回答No.1

okormazd

ツール―オプション―全般―「新しいブックのシート数」の、
ボックスを100にして、
新しいBOOKを開く。

お礼

お礼が遅くなりまして申し訳ございませんでした。
大変参考になりました。
ありがとうございました。