2列のエクセルの表を変更したい

画像の上の表を下の表のように変更したいです。
(実際のデータはもっと件数が多いです。)
できるだけ簡単な方法で、あまり工程も多くない方がいいです。
関数やピボットテーブルやoffice365のunique関数？やVBA？
どれも私の頭では到達できませんでした。。。
よろしくお願いします。

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

• 表現が不十分でスミマセン。
  >件数が多いとは上の表の行数が多いって事だけ
  →その通りです、変換前の表は2列のみです。
  >あと双方の表は同じシート上に配置はしないのかな？
  >⇒上が２列固定なら下はＤ列より右に配置とか？
  →変換前の表と変換後の表は別シートを考えていましたが、ご指摘通り同じシートでD列より右に配置でもいいです。

    補足日時：2022/06/30 18:52

• 

  早速のご回答ありがとうございます。
  出来ました！すばらしいです！
  ありがとうございます。
  
  365環境がないところでも使いたいので、別に質問します。
  よろしくお願いします。

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

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/06/30 11:05

こんにちは

＞関数やピボットテーブルやoffice365のunique関数？やVBA？
365環境としてもよいのなら・・

ご提示のレイアウトで、B8セルに
=IF(A8="","",TRANSPOSE(INDEX(FILTER(A$2:B$5,NOT(ISERROR(FIND(A8,B$2:B$5))),""),,1)))
の関数を入力します。
これにより、右方に該当内容がスピルされます。

あとは、そのままB8セルを下方にフィルコピーすれば良いです。

No.2 回答者： めぐみん_ 回答日時： 2022/06/30 15:15

件数が多いとは上の表の行数が多いって事だけですか？

それとも実際には２列超で『産地』・・・など列数もあるけど『どうせＡ列と同じやり方でいいだろう』みたいなことで省略している？

あと双方の表は同じシート上に配置はしないのかな？
⇒上が２列固定なら下はＤ列より右に配置とか？