エクセル データをシート別に分けたい

質問

現在　エクセルにてその日入荷商品を仕分しています。データ入力シートに商品番号を入れると単価と重量と分類が出てきます（化粧品なので口紅、香水など）
1　1234　香水　1000円　100グラム　分類　3303.00
2　5645　口紅　900円　　50グラム　分類　3304.00
3 2256 香水　3000円　250グラム　分類　3303.00

データ入力した際の1番目に来た商品（香水）は別の1番シート、香水を除いた2番目に来た商品（口紅）を2番シートに・・・のようにしたいのですが、現在はオートフィルで摘出してコピーをしています。
シート1
1　1234　香水　1000円　100グラム　分類　3303.00
2 2256 香水　3000円　250グラム　分類　3303.00
シート2
3　5645　口紅　900円　　50グラム　分類　3304.00

順番はその日によって違い何が1番目に来るのかわかりませんが、必ず1番上から仕分をしなくてはいけません。
摘出後、1番シートに1番から番号を振り最後まで振ったら続きを2番シートというようなものを作成したいと思っております。商品は大体8種類から14種類に分類されます。
どのように作成すればいいのか、どなたかご教授ください。よろしくお願いいたします。

回答No.2

imogasi · ベストアンサー

質問にしては、丁寧に記述して頂いている方だと思いますが、ビジネスがらみの問題は、問題のポイントや細部を捉え難いですね。
------
言いかえると、こう言うことでしょうか？
（１）毎日入荷商品を入力していて、終わった段階で仕訳しても良いのですね。VBAでやる場合このほうが都合が良い。（バッチ方式、まとめておいて仕訳は一斉にやる方式）
（２）品名＋連番でソートするとする。
香水、口紅、化粧水、マニキュアなどがそれぞれ集団で行的に固まる。
ただ漢字コード順になってしまいます。
これでは、この質問では都合が悪いらしいので、
右端にでも、１列ワーク列をつくって（下記例ではD列）そのD2に
=INDEX(A:A,MATCH(B2,$B$2:B2,0)+1,1)をいれて、下方向に複写する。
（例データ）A2:B10
（A列）（B列）　　　　　　　（D列）
1 口紅 1
2 香水 2
3 マニキュア 3
4 口紅 1
5 香水 2
6 マニキュア 3
7 香水 2
8 化粧水 8
9 口紅 1
関数式の結果は上記の通り。
（ソート）ここで上表をD列＋B列でソートする。
1 口紅 1
4 口紅 1
9 口紅 1
2 香水 2
5 香水 2
7 香水 2
3 マニキュア 3
6 マニキュア 3
8 化粧水 8
となり、口紅＞香水＞マニキュア＞化粧水の順序は「保存されている」。
ここでD列の１番（口紅）は第１表（Sheet2)、
D列の２番（香水）は第２表（Sheet3)、
D列の３番（マニキュア）は第３表（Sheet4)、
・・・
に転記すれば良いのですね。
（３）別シートへ転記は関数式ででも出来ます。
しかしソートは関数式では複雑になります。
ソートを使うならVBA（俗にマクロ）を使います。
（４）ソートを使わないならD2に
=INDEX(A:A,MATCH(B2,$B$2:B2,0)+1,1)*100+COUNTIF($B$2:B2,B2)
といれて、下に複写します。結果は
101
201
301
102
202
302
203
801
103
となります。１００掛けたのは、各品目が９９回以上でてこないと仮定してのことです。
（５）この１０１をSheet２の第１行目に
１０２をSheet２の第２行目に
１０３をSheet２の第３行目に
・・
に持ってくるのは、MATCH関数で１０１を探し、INDEXかOFFSET関数で項目を取ってくることが出来ます。
私の過去の回答に数回回答してます。
大筋が、上記の通りで良ければ、その式は希望があれば載せます。

回答No.1

web2525

1　1234　香水　1000円　100グラム　分類　3303.00
2　5645　口紅　900円　　50グラム　分類　3304.00
3 2256 香水　3000円　250グラム　分類　3303.00

ややこしくなるかも知れませんが、下記の動作をマクロで記録すると、ワンクリックで解決するのでは？
初めに品名の列を選択して〔フィルターオプション〕を〔重複するレコードは無視〕にチェックを入れ実行。
そうすると入力された品名の順番で重複なしで品名が選出されます。
その項目を<作業領域>にコピー（あらかじめ連番をコピーする箇所の右側に振っておくその番号を区分番号とする）、その後フィルターを解除して全表示。
VLOOKUP関数で〔検索値〕を品名〔範囲〕を<作業領域>に指定して区分番号を振り。
区分番号でソートを掛けた後、一連番号を振る。
ここまでで番号は振れていると思うので後は区分番号ごとにシートにコピー。

この説明では分からないかな？