自動でデータを指定した項目別にデータを抽出し、シートを分割することができる！
データを項目ごとにシート分割マクロツールをご紹介します。
エクセルファイルをダウンロードしてすぐに使えます。
このマクロツールでボタンを押すだけで
データを指定した項目別にデータを抽出し、シートを分割ができます。
操作画面
手順
①【データを項目別にシート分割】ボタンを押す
②ダイアログから作業ファイルを選択する
③分割したいシートを選択
④分割したい項目を入力
※選択した項目の中に既存シートと同じ名前のデータがあるとエラーになります。
また、シート名が変更できないものが含まれている場合もエラーになります。 
作業が完了すると指定した項目別にファイルが分割されシート名も変更されます。
作業完了後、C4～D4セルに作業シート名、ファイル名が記入されます。
↓ダウンロードはこちらをクリック（詳しい手順、注意事項はファイルの中に記載）
※ファイル形式がエクセル以外をお使いの場合はこちら
※分割後、オートフィルタ設定・1行目でウィンドウ枠を固定したものはこちら
※フィルタの位置を指定したい場合はこちら
シート分割後にE列に数量を入れ、合計(いくつ使った）を自動に算出できないでしょうか
マクロで作成は可能です。
もう少し詳細を聞かせていただきたくメールに返信をしましたが
登録されているアドレスにお送りすることができませんでした。
もし可能であれば問い合わせフォームからご連絡いただければと思います。
よろしくお願い致します。
はじめまして
こちら、大変ありがたく使わせていただいてるのですが、追加で以下2点にしたいご相談です。
①シート分割する列がAB列までに固定されてるようなのですが、ここをAZ列までに変更(もしくは、常に最終列までとってくる)
②分割したシートのすべてのタイトル行(1行目でしょうか)にフィルタをかけて、タイトル行を固定
自分で修正してみたりもしたのですが、うまくいきません
教えていただけますと幸いです
はじめまして。
ご連絡ありがとうございます。
掲載していましたマクロを①の仕様に変更しましたのでご確認ください。
また、このページの一番下に②の仕様のマクロも掲載しましたのでご確認ください。
何かありましたらご連絡下さい。
貴重なご意見ありがとうございました。
はじめまして。勝手ながら使用させていただいております。
こちら、CSVで同じことができないでしょうか。
CSVのデータを項目名指定で分割したいのですが、
現在は、一度ブックで保存しなおしてから、使用させていただいている次第です。
何卒よろしくお願い申し上げます。
はじめまして。
ご連絡ありがとうございました。
エクセルファイル以外も開けるマクロを通常のマクロの下に掲示しました。
ご確認ください。
ご対応ありがとうございます。
大変助かります。
お手数をお掛けいたしました。
いつも参考にさせていただいております。
現在の仕様では、項目指定行が１行目と固定されていますが、項目指定行を任意の行（初期設定のメッセージボックス等で）に指定することは可能でしょうか。
指定が可能であれば、指定行でフィルタ設定を行い、指定行までを見出し行、指定行の次の行以下を項目別のシートに分けたいです。
それと、新シートへの貼り付けの際に、値貼り付けとなってしまうのですが、コピー元データ内の関数等をそのまま貼り付けることは可能でしょうか。
できれば、「シートごとにファイル分割マクロ」と同じエクセルマクロで掲載していただけるとありがたいです。
お願いばかりで申し訳ありませんが、お力添えいただけるとありがたいです。
ご連絡ありがとうございます。
任意の行に指定、貼付けの件は承知致しました
「「シートごとにファイル分割マクロ」と同じエクセルマクロで掲載」というのは
データを項目ごとにシート分割するのではなくファイル分割したいということでしょうか？
お手数をおかけしています。
「「シートごとにファイル分割マクロ」と同じエクセルマクロで掲載」というのは一つのツールの中で、ボタンを２個設けていただき、①項目別にシートを分割、②シートごとにブックを作成というイメージです。
可能であれば、よろしくお願いします。
ご返信ありがとうございます。
ご希望のマクロは作成可能です。
個人的な依頼となりますので作成しましたら、
登録されておりますメールアドレスにお送りしてもよろしいでしょうか？
コメントありがとうございます。
汎用性がなく、私個人のために管理人様の貴重なお時間を費やしていただくのも申し訳ありませんので、現在掲載いただいているものを利用させていただきます。
この度はありがとうございました。
ご返信ありがとうございます。
とんでもないです。貴重なご意見ありがとうございました。
「項目指定行を任意の行（初期設定のメッセージボックス等で）に指定する」という意見は汎用性があり
新しくこのようなツールを掲載しようかと思ってました。
「「シートごとにファイル分割マクロ」と同じエクセルマクロで掲載」という件に関しては
サイトに掲載ということではなくメールでお送りしても良いかと確認したかったのですが
マクロを2つ組込むことは手間のかかる作業ではないので…
ありがとうございます。
「項目指定行を任意の行（初期設定のメッセージボックス等で）に指定する」ファイルだけでも掲載いただけるとありがたいです。
お手数でなければ、ご検討のほどよろしくお願いします。
遅くなりましたが、ご希望のマクロを掲示しました。
こちらのページの一番下にある「※フィルタの位置を指定したい場合はこちら」からダウンロードできます。
何か不具合がありましたらご連絡下さい。
よろしくお願い致します。
こちらを元にタイムカードのデータ整理をしたいと考えています
タイムカードデータは、約30名のデータが日時毎に並んでいます
そのデータを基に
1)それぞれのデータをシートに分ける
2)それぞれのシート毎にコマンドボタンが配置されていて、データの加工をする
3)コマンドボタンは共通で加工方法を登録できる
そんな事をしたいと考えています
お仕事として依頼したいと考えていますが、相談に乗っていただけないでしょうか？
よろしくお願いします
項目が違った項目でシート作成されてしまう。どうすればよいのでしょうか
返信遅くなりまして申し訳ありません。
もう少し詳しく状況を教えていただけないでしょうか？
お世話になります。
こちらのマクロシートを使用させていただいております。
項目別にシート分けはできたのですが、
元シート(Sheet1)で列幅・行幅・オートフィルターを設定したものが
他のシートには反映されません。
全シートに、元シートと同じ列幅・行幅・オートフィルターの設定をすることは可能でしょうか。
お手数をおかけしますが、ご確認お願いいたします。
ご連絡ありがとうございます。
新たにシートを追加してシート分けしているため
書式とオートフィルタの設定は追加したファイルに反映されません。
ご希望のマクロを作成することは可能ですが期日はお約束できませんので
お急ぎでしたらこちらをツールをご使用等でご対応願います。
お手数お掛け致しますがよろしくお願い致します。
お世話になっております。
ご返信ありがとうございます。
時間がかかっても構いませんので、
希望のマクロを作成していただくことは可能でしょうか。
シート分けで新たに追加したシートにも、元シート(Sheet1)と同じ
列幅・行幅・オートフィルター・並び替え を反映できるようになれば助かります。
自分でも頑張ってみたのですが上手くいかず・・・
お忙しいところ大変申し訳ございませんが、何卒宜しくお願いいたします。
お世話になっております。
先日のコメントに「並び替え」について記載がなかったのですが
どのように並び替えたいのでしょうか？
具体的にご教示いただけますと幸いです。
お世話になっております。
要望を増やしてしまい申し訳ございません。
手順として、
①元データのエクセルでマクロを実行(VBAで作成)
・列の追加(1行目に項目名を入力)、追加行に関数入力
・E列、X列でオートフィルター
・B列、D列、M列で並び替え(すべて昇順)
・列幅を自動調整
・全ての行幅を「20(40ピクセル)」に設定
・不要な列の非表示
②配布いただいているシート分割マクロを使用し、項目別にシート分け
という流れとなっています。
①の手順の 列の追加・不要な列の非表示 はシート分割後も適用されているのですが、
それ以外が適用されずに悩んでいます。
お手数おかけし申し訳ございませんが、ご確認お願いいたします。
おそらく①ご自身で作成されたマクロで並び替え等は行われていると思いますので
②配布しているマクロに分割で新しく作成したシートにオートフィルタの設定と書式のコピー（列幅も含む）を追加すればよろしいでしょうか？
いつもお世話になっております。
はい、今は自分で作成したマクロで並び替え等を行っております。
配布マクロに記載いただいた動作を追加していただくことは可能でしょうか。
(こちらでも編集を試みましたが、ロック？がかかっており編集できませんでした)
お手数おかけし大変申し訳ございません。
ご確認お願いいたします。