エクセルの表を自動的に、項目毎に別シートへ分ける方法

質問

住所録に分類をつけて、その分類毎に別のシートへコピー又は、移動を自動的にさせたいのですが、なにか良い方法がありましたら教えて下さい。まだ初心者ですが、エクセルＶＢＡでも構いません。宜しくお願い致します。

例） 氏名 ・・ 会社名 ・・役職 ・・住所 ・・・ 分類
○○○○ ・ －なし－ ・ なし ・ あああああ ・ １ → シート２へ
×××× ・ いいいい ・ 社長 ・ えええええ ・ ２ → シート３へ
－な し－ ・ ええええ ・ なし ・ おおおおお ・ ３ → シート４へ

※分割後、別シートのハガキフォームへリンクするしくみを作成中です。
上記の様に、パターンがいろいろあって、その分類毎にハガキフォームを用意して、それぞれをリンクさせようとしています。リンクの方法は、HLOOKUPを使用しています。
フォームへの宛名表示は、ＶＢＡでレコードＮＯ指定のセル＋１のプログラムを組み、これを、ボタンにマクロを登録して次のデータへ進む様に作成しています。
住所録は、登録するデータが多い為、入力の楽なエクセルで一覧（1シート）にしています。

市販のソフトやフリーソフトでは、なかなか対応出来るのがなく、ワードの差込印刷も試しましたが、1枚づつの調整が面倒でしたので、簡単なものを作成しようと思い頑張っていますが、今のところ、これしか思い付かないのですが、もっと良い方法があったらそれも教えて下さい。

説明が、下手ですみません。宜しくお願い致します。

回答No.5

nishi6 · ベストアンサー

できるまで頑張りましょう。
●まず、分類が10まであったら、シートはSheet11まで必要です。(シート数は分類数+1です)
●それに、Sheet1の1行目は表題で、空白セルはなく連続して入力されていて、そのどこかに「分類」という表題があることを前提にしています。
●マクロを動かして、開始、終了入力には半角数値で入力してください。
●標準モジュールを挿入されていれば、先頭行に「Option Explicit」と入力して動かしてみて下さい。スペルミスがあるかもしれません。

いままでに作成したシートをコピーして別名で保存して下さい。そのコピーしたシートを使用しましょう。
１．ＶＢＥ画面で挿入→標準モジュールで標準モジュールを挿入します。既に標準モジュールがあって入力されていれば削除かコメント行にして下さい。
　※コメント行にするには、表示→ツールバー→編集をチェック。出てきたツールバーの「手」の右のアイコンがコメントブロックです。既に入力した行を選んで（反転させて）コメントブロックのアイコンを押します。行頭に「'」が付いてコメントになります。
２．標準モジュールの先頭行に「Option Explicit」がなかったら「Option Explicit」を入力します。
３．ANO.#4のマクロ部分を選んでコピーして下さい。
　　Public Sub から End Sub　までです。
４．これを標準モジュールに貼り付けます。
　※文章から判断して、マクロを入力されたと思いますので、スペルミスをなくすために貼り付けてください。マクロの行を見て、「xxx」と「End xxx」、「For xxxx」と「Next」に挟まれた行を選択してTABキーを押していくと見やすくなります。（インデントをつける）ｏｋｗｅｂからメールが届いていれば、そちらを貼り付ければ見やすくなると思います。
５．Excelシートに戻って、ツール→マクロ→マクロで「BunruiSheetPrint」を選んで実行します。
６．開始行と終了行を半角数値で入力してください。
うまくいきますように。

うまく動いたら
　　Dim rw → Dim rw As Long '行カウンタ
　　Dim br → Dim br As Integer '各データの分類
　　Dim ws → Dim ws As Worksheet '印刷をするシート
に修正して下さい。今のままでも動きますが、ここはこう書くべきでした。

＞やっぱり、初心者では無理ですか？
そんなことはないと思います。最初はみんな初心者ですし。ruru-Kさんもこれだけ考えていれば上達しているはずです。基本を身に付けること（本とかで）と考えることでどんどん上達していくはずです。多分もう少しで動きます。(私の方に間違いがなければ？)頑張って下さい。

お礼

nishi6さん！！ うごきました！！ ありがとうございます。感動の一瞬でした！

これから、いろんな機能等をつけて暑中見舞いに間に合うように完成させます。
HLOOLUPを使わずに、シートに飛ばせば！？ と言うアドバイスを頂いたおかげでＶＢＡの事も少しずつ分かってきました。なんだか自信がでてきました。やれば出来る！ とはいっても、まだ理解できているわけではありません。もっと勉強していきたいと思います。本当にありがとうございました。

で・・・ソフトとして使い易いように、いろいろ考えているのですが、いきなり問題が出来ました。それは、各分類のシート（はがきのフォーム）を表示させて、１枚ずつ体裁を確認しながら印刷させる事も出来るようにしたい。ということです。
「（次の宛名→印刷）を繰り返していく」のように・・・

１回の質問でいろいろ聞くのも、なんだか申し訳なくなってきましたので、一旦締め切ります。この後すぐ、「 分類に分けられたシートの表示 」と言うタイトルで質問をさせていただきますので、宜しくお願い致します。