复制A列到D列，选择D列，在“数据”选项下的“删除重复项”下，“保留唯一值”；
在E1单元格输入以下数组公式，按Ctrl+Shift+Enter组合键结束，然后向右向下填充公式
=INDEX($B:$B,SMALL(IF($A$1:$A$15=$D1,ROW($1:$15),4^8),COLUMN(A1)))
EFG列的单元格格式保持与B列相同（可以使用格式刷）
详见附图
