关于列转行，求助各位大神

stoneonline

如图所示  以第一列数据为基础，对第二列数据进行列转行操作
以下为效果图

左手跳舞

可以先对A列用UNIQUE函数提取唯一值，然后对提取出来的数据进行一对多查找，index+small+if

yfan17

1. =INDEX(Sheet1!$B:$B,SMALL(IF(Sheet1!$A$2:$A$20=$A2,ROW($2:$20),16384),COLUMN(A$1)))&""

复制代码

stoneonline

yfan17 发表于 2023-3-13 09:15

感谢版主大大，问题已解决。  也感谢一楼兄弟的热心指导

锅仔335

=LET(data,B2:B20,ser,A2:A20,TEXTSPLIT(CONCAT(","&data&IF(IFERROR(ser<>DROP(ser,1),0),";","")),",",";",3,,""))

左手跳舞

锅仔335 发表于 2023-3-13 10:26
=LET(data,B2:B20,ser,A2:A20,TEXTSPLIT(CONCAT(","&data&IF(IFERROR(serDROP(ser,1),0),";","")),",",";", ...

新方法，学习

quqiyuan

PQ方法，供参考

我的城市你来过

=IFERROR(INDEX($A$2:$A$20,MATCH(0,COUNTIF(D$1:D1,$A$2:$A$20),)),"")
=MID(CONCAT(IF($A$2:$A$20=$D2,$B$2:$B$20,"")),COLUMN(A1)*3-2,3)

佛山小老鼠

1. Option Explicit
   
2. Sub test()
   
3.     Dim Dic, arr1, arr2(1 To 10000, 1 To 50), k, x
   
4.     Set Dic = CreateObject("Scripting.Dictionary")
   
5.     arr1 = Range("A1").CurrentRegion
   
6.     For x = 2 To UBound(arr1)
   
7.         If Not Dic.exists(arr1(x, 1)) Then
   
8.             k = k + 1
   
9.             Dic(arr1(x, 1)) = k
   
10.             arr2(k, 1) = arr1(x, 1)
    
11.             arr2(k, 2) = arr1(x, 2)
    
12.         Else
    
13.             arr2(Dic(arr1(x, 1)), Application.CountIf(Range("A2:A" & x), arr1(x, 1)) + 1) = arr1(x, 2)
    
14.         End If
    
15.     Next x
    
16.     Range("D1:Z10000").ClearContents
    
17.     [D1].Resize(k, 50) = arr2
    
18. End Sub
    
19. Sub 清空()
    
20.     Range("D1:Z10000").ClearContents
    
21. End Sub
    

复制代码