【Excel】 重複した行を、1行にしたリストを作成したい。

こんにちは。

よろしくお願いいたします。
Excel2003です。

シート1

ＡＢＣ
1コード品名品番
2123あいうA1234
3123あいうB7890
4123あいうC5555
5456えおかA1235
6456えおかB7891
7456えおかC5556
8456えおかA1236
9789きくけB7892
10789きくけC5557
11789きくけA1237
12789きくけB7893


シート2

ＡＢ
1コード品名
2123あいう
3456えおか
4789きくけ


上の様にシート1のA、B列の重複を除いたリストを
シート2に作りたいのですが、
各セルの式を教えてください。

No.2 ベストアンサー 回答者： NCU 回答日時： 2006/08/26 13:27

フィルタオプションの設定 でどうぞ。

あらかじめ シート2 を選択した状態から操作して下さい。

この回答へのお礼

ご回答有難うございます。
フィルタオプションで簡単にできました。
有難うございました。

お礼日時：2006/08/26 15:36

No.4 回答者： NCU 回答日時： 2006/08/26 13:38

こんな感じで自動化もできます。

ご参考まで。

Sheet1.Columns("A:B").AdvancedFilter Action:=xlFilterCopy, _
　　CopyToRange:=Sheet2.Range("A1"), Unique:=True

この回答への補足

VBAはあまり詳しくなく、
使ってみたのですが、2行目は1行目と同じ物が表示されてしまいました。
原因を追求するほどのスキルもの無く諦めました。
有難うございました。

補足日時：2006/08/26 15:37

No.3 回答者： gori8063 回答日時： 2006/08/26 13:30

すみません、最後のところ、１段階ステップを忘れたのでこのままではうまくいきません。

Ｄ列は数式なんで、ソートしちゃうとうまくいかないです。
なので、Ｄ列すべてをコピーし、Ｅ列に「形式を選択して貼り付け」=> 「値」でＥ列に結果の値だけをペーストしてください。

その上でＥ列でソートしてください。

この回答へのお礼

ご回答有難うございます。
素晴らしいアイディアだと思います。
有難うございました。

お礼日時：2006/08/26 15:34

No.1 回答者： gori8063 回答日時： 2006/08/26 13:26

商品コードがソートされている前提で、スマートではないですが、

シート１内で品番の隣のセル（仮にＤ列）を使い
２行目ならＤ２のセルで、

= IF ( B2 = B1 ,"", B2 )

としてＤ２に空白もしくはＢ２を判定して入力させる。

判定条件は、前の行の商品コードが今注目している列の商品コードと同じなら空白、違うならば商品コードが変わった切れ目と判定して商品コードを表示。

あとはＤ列でソートしてらればいいんでは？