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

質問

こんにちは。

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

シート1

Ａ Ｂ Ｃ
1 コード 品名 品番
2 123 あいう A1234
3 123 あいう B7890
4 123 あいう C5555
5 456 えおか A1235
6 456 えおか B7891
7 456 えおか C5556
8 456 えおか A1236
9 789 きくけ B7892
10 789 きくけ C5557
11 789 きくけ A1237
12 789 きくけ B7893

シート2

Ａ Ｂ
1 コード 品名
2 123 あいう
3 456 えおか
4 789 きくけ

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

回答No.2

NCU · ベストアンサー

フィルタオプションの設定 でどうぞ。
あらかじめ シート2 を選択した状態から操作して下さい。

お礼

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

回答No.4

NCU

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

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

補足

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

回答No.3

gori8063

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

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

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

お礼

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

回答No.1

gori8063

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

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

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

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

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

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