エクセルのソートキーの作成方法がわかりません

いつもお世話になっています。

現在、顧客向けの帯封を作成するため、エクセルでデータを作成して、ワードで差し込み印刷をしています。この帯封はＢ４用紙１枚に４枚住所氏名を印字したあと裁断し顧客ひとりひとりの帯封を作成しています。顧客には１からの通しナンバー付番しています。

ところが現在は顧客が１００名とした場合

１枚目の用紙　　顧客001　顧客002　顧客003　顧客004
２枚目の用紙　　顧客005　顧客006　顧客007　顧客008
３枚目の用紙　　顧客009　顧客010　顧客011　顧客012
　　　　　　～
２５枚目の用紙　顧客097　顧客098　顧客099　顧客100

となり、裁断した際には順番が１番目、５番目、９番目となってしまって大変不便です。ですので、裁断した段階で山で、顧客が正しく順番に並べ替えたいのです。同じようにデータ１００件だとすると

１枚目の用紙　　顧客001　顧客025　顧客051　顧客075
２枚目の用紙　　顧客002　顧客026　顧客052　顧客076
３枚目の用紙　　顧客003　顧客027　顧客053　顧客077
　　　　　　～
２５枚目の用紙　顧客024　顧客050　顧客074　顧客100

というようにしたいのです。

顧客コード（１番から付番されてある）とデータ総数からこのように並べられるようにソートキーを顧客単位にあらたにふればよいと考え、いろいろ試行錯誤しているのですがわかりません。ぜひご教示いただきますようお願い申し上げます。

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2015/06/21 20:36

現在

顧客001
顧客002
顧客003
・・・
と並んでいるデータを
顧客001
顧客0026
顧客0051
顧客0076
顧客002
顧客0027
・・・
と並び替えれば良いと云う事でしょうか。
一例ですが
空いている列に
０
１
２
・・・
９９
と連番を入れる
その隣に
=MOD(Z1,25)*100+Z1
と入れて下までコピー
並び替えで、関数を入れた列で並び替えては如何でしょうか。

この回答へのお礼

早速のご教示感謝します。

MODと１枚に出力する４件、そして総件数を使えばなんとかなるだろうとは
思っていたのですが、ちょっと難しく考えすぎていました。

これで、いままでの苦労がなんとか解消されそうです。
ありがとうございました。

お礼日時：2015/06/22 08:56

No.3 回答者： MarcoRossiItaly 回答日時： 2015/06/21 20:58

要するに、25 行ごとに抜き出した形に並べ替える方法が分かればいいわけですね。

マクロを使わなくても、Excel の基本的な操作だけでできますよ。

添付図のように、「通しナンバー」の昇順で並んでいるときに、「グループナンバー」として、C 列の最初の 25 行に 1, 2, ..., 25 と記入。C2:C26 のセル範囲をコピーして、その下の行に貼り付け。最後に、「グループナンバー」の昇順で表全体を並べ替えれば、お望みの順番になります。「通しナンバー」で並べ替えれば、元の順序に戻ります。

この回答へのお礼

早速のご教示感謝します。

たしかにこれをやれば良いというのはわかっているのですが、実際の顧客件数は約２０００件
ですので、手作業でいれるというのは難しいですね…

ありがとうござました。

お礼日時：2015/06/22 08:51

No.1 回答者： soixante 回答日時： 2015/06/21 19:20

お望みの形か分かりませんがVBAを使用してみました。

なお、並び替えた後の結果で示されている、
＞１枚目の用紙　　顧客001　顧客025　顧客051　顧客075
＞２５枚目の用紙　顧客024　顧客050　顧客074　顧客100
は、
１枚目の用紙　　顧客001　顧客026　顧客051　顧客076
25枚目の用紙　　顧客025　顧客050　顧客075　顧客100
の書き間違いと理解して進めます。

データはバックアップしたうえで試行ください。
元のデータがA1:D25に入っているとして、並び替えた結果がF1：I25に展開される
ようにしました。


１．Excel画面上で、Alt+F11 でVBE画面を開く
２．Alt+I、M　で新規モジュールを開く（真っ白な画面が開きます）
３．そこに以下のコードをコピペ。
'------------------------------------------------
Sub aaaaaa()
Dim r As Integer, c As Integer
Dim j As Integer
Dim Kyak(99) As Variant
j = 0

For r = 1 To 25
For c = 1 To 4
Kyak(j) = Cells(r, c).Value
j = j + 1
Next c
Next r

j = 0
For c = 6 To 9
For r = 1 To 25
Cells(r, c).Value = Kyak(j)
j = j + 1
Next r
Next c


End Sub

'------------------------------------------------
４．エクセル画面に戻り、ALt+F8、「aaaaaa」を選択して実行。

この回答へのお礼

早速のご教示、感謝します。

短時間にもかかわらずマクロのコードを書いて頂きありがとうございます。
お書き頂いた、マクロのコードについてどのルーチンがどのような働きをするのか
勉強させて頂きます。

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

お礼日時：2015/06/22 08:49