求助求助，如何批量转置。。。

函数不熟，不过我有种笨方法，如图：
自定义序列

插入数据透视表，选择排序

输入if函数，定位逻辑值

删除定位左移，粘贴在一起，即可。

假设数据范围A1:B999,=IFERROR(INDEX($A:$A,SMALL(IF(SMALL(IF(MATCH(B$1:B$999,B$1:B$999)=ROW($1:$999),4^8),ROW(A1)))=B$1:B$999,ROW($1:$999),4^8),COLUMN(A1)))),"")组数公式

还是vba最简单。

我可以帮你啊

上个数组公式
=IFERROR(INDEX(OFFSET($C$6,SUM(SMALL(IF($D$6:$D$20<>$D$7:$D$21,ROW($1:$15),4^8),ROW(1:1))),,SUM(SMALL(IF($D$6:$D$21<>$D$7:$D$22,ROW($1:$16),""),ROW(1:2))*{-1;1})),COLUMN(A1)),"")

都这么厉害