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

質問

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

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

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

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

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

回答No.2

nishi6

＞移動を自動的にさせたいのですが
に対して、下記のVBAを書いてみました。参考にして下さい。詳細が分からないので条件があります。
１.データはSheet1にある
２.Sheet1の１行目は表題になっており(A1から)、全ての列に入力されていて、どこかに「分類」という表題がある。
３.「分類」列は全てのデータについて入力されていて1からシート数-1以下である。
注１）転記するシートには２行目から書いています。
注２）分類が増えたらシートを増やします。VBAは修正不要です。
注３）データの増減、修正がある場合、Sheet2以降はデータをクリアする必要があります。
　　（これがあるためこの方法には抵抗があります。初期化すればいいんですが）

Public Sub Sheet2Sheet()
Dim BunruiCol As Integer '分類が入力された列(A列からのカウント)
Dim columnMax As Integer '列数(データ項目数)
Dim rowMax As Integer '行数(データ数)
Dim cl, rw As Integer 'カウンタ
Dim wRw(255) As Integer '各シートで書いた行番号(2行目からスタート)
'分類の列位置、データ列数・行数を調べる
With Worksheets("Sheet1")
With .Range("A1")
While .Offset(0, cl) <> "" And BunruiCol = 0
If .Offset(0, cl) = "分類" Then
BunruiCol = cl
End If
cl = cl + 1
Wend
End With
columnMax = .UsedRange.Columns.Count
rowMax = .UsedRange.Rows.Count - 1
End With
'各シートに転記
Dim br '各データの分類
With Worksheets("Sheet1").Range("A1")
For rw = 1 To rowMax
br = .Offset(rw, BunruiCol) + 1
For cl = 0 To columnMax
Worksheets("Sheet" & br).Range("A1").Offset(wRw(br) + 1, cl) = .Offset(rw, cl)
Next
wRw(br) = wRw(br) + 1
Next
End With
End Sub

＞もっと良い方法があったらそれも教えて下さい。
に対して、私なりの感想ですが（やるとしたらこうします）
（1）分類数に対応するハガキフォームを先に作ってしまいます。各シートは１分類としSheet2から作ります。１行目(A1から)にデータを適当に入力しておき、それを「+」を使ってレイアウトに編集していきます。肝心なのはここをいかにシンプルに作るか、分類が増えた場合も考え簡単に対応できるようにしておきます。
（2）できたハガキフォームの印刷範囲をシート単位で決定します。
（3）後は、上記ＶＢＡのように各シートに移動させるわけすが、該当シートに１件単位に書き込み（１行目に）→そのシートをアクティブに→印刷　を繰り返していきます。ＶＢＡは当然、シート数が増えても手を入れなくていい作りにします。（上記ＶＢＡもそうです）
（4）印刷時は全件印刷や指定印刷が必要でしょうからその機能を付加します。
ざっと書きましたが、印刷はExcelに任せ、１件を該当シートに送ってやれば、１シート１分類、１データとなりリンクもHLOOKUPも不要な気がします。
長々と書いてしまいました。がんばってください。

補足

大変参考になる回答をありがとうございます。
早速、試してみましたところ、うまくいきました。が・・・
ご意見いただきました通り、1件を該当するシートへ送る方法で進めたいと思います。
その内容について詳しく知りたいのですが、現在、ハガキのフォームはできました。ただ、1行目にデータを適当に入力しておき、「＋」でレイアウトに編集？と言う部分が良く分かりませんでした。（とりあえずフォームは出来てますが・・・）ここまでは何とかうまくいってますが、そのフォームにそれぞれの該当データを、HLOOKUPを使用せずに送り込む作業をしているのですが、なかなかうまくいきません。私の単なる知識不足でしょうが・・・
ＶＢＡに関して、初心者なものですみません！よろしかったら送り込みの方法を教えていただけませんでしょうか？よろしくお願い致します。