エクセルで重複データから抽出したい

エクセルで、下記のような品番リストから同じ品番は１行にして、登録色に追記したい場合の
処理を教えて頂きたいです。（データは500位あります）
エクセル関数かVBAのコードを教えて頂けますと助かります。
宜しくお願い致します。

品番　　　　　　登録色
1234-5678　　　赤
1234-5678　　　青
2233-2233　　　赤
3456-3333　　　紫
3456-3333　　　青
3456-3333　　　黄
5555-5555　　　緑
6666-6666　　　黒
7777-7777　　　赤
7777-7777　　　青
7777-7777　　　紫

上の品番リストを下記のようにしたいです。
品番　　　　　　登録色　　登録色２　　登録色３
1234-5678　　　赤　　　　　青
2233-2233　　　赤
3456-3333　　　紫　　　　　青　　　　　黄
5555-5555　　　緑
6666-6666　　　黒
7777-7777　　　赤　　　　　青　　　　　紫

質問者からの補足コメント

• 早急にお返事を頂きまして誠にありがとうございます。
  回答を拝見して大変参考になりました！！！
  しかしながら・・・オフィスのバージョンを書き忘れており大変申し訳ございませんでした。
  オフィス2016を使用しております><;
  頂いた回答を元に、unique関数は重複の削除で対応しましたが、
  FILTER関数でつまづいてしまいました。
  代わりになる関数などを調べたのですがなかなかうまくできず、、、
  もしまたご教示頂けましたら大変助かります。
  どうぞ宜しくお願い致します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/05/19 01:25

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/05/19 08:56

No1です。

＞FILTER関数でつまづいてしまいました。
＞代わりになる関数などを調べたのですがなかなかうまくできず、、、
2016だと、ローテクになりますが、以下のようにすれば可能かと。
（2019でテストしています）

No1の添付図のレイアウトでよいものとして・・
E2セルに
=IFERROR(INDEX($B:$B,AGGREGATE(15,6,ROW($A$2:$A$600)/($A$2:$A$600=$D2),COLUMN(A1))),"")
の式を入力し、右方に適当な範囲までフィルコピー。
更に、その行範囲を下方にフィルコピー。

この回答へのお礼

代替えの方法までご丁寧に教えて頂きありがとうございまいした。
本日頂きました回答を元に会社で試したところ、完璧に処理出来ました！！
私では到底分からない関数でしたので、本当に助かりました！
ありがとうございまいした！

お礼日時：2022/05/19 18:20

No.1 回答者： fujillin 回答日時： 2022/05/19 00:02

こんばんは

関数での例です。（Office365環境を想定）
レイアウトが不明なので、仮に、添付図のA、B列のようなレイアウトとします。
1）D2セルに
　　=UNIQUE(A2:A12)
　を入力
2）E2セルに
　　=TRANSPOSE(FILTER(B2:B12,A2:A12=D2,""))
　を入力し、下方にフィルコピー

で、可能と思います。