B2中输入=INDEX(A:A,SMALL(IF(MATCH($A$2:$A$16,$A$2:$A$16,0)=ROW($A$2:$A$16)-1,ROW($A$2:$A$16)-1,4^8),ROW(A2)))&""数组公式Ctrl+Shift+Enter三键结束,注意16为举例中的行数,实际有多少行改为多少C2中输入=COUNTIF(A:A,B2)
饿 这个需要使用宏用vba编程完成了首先循环判断a列中有多少个数据,然后每个数据有多少个再用个循环求出