求助，多行一列数据转换成按组别多行多列数据

TANGXIAOLUZI

如图，左边三个组对应多行数据，怎么才能转换成右边这样的 一组一行对应多列数据呢

ekko1115

透视表就行

TANGXIAOLUZI

ekko1115 发表于 2022-7-22 18:20
透视表就行

我这个示例有点不太准确了，这边实际上不是数字是文本，而且没有重复值

680926

Sub test2()
Dim i As Integer
Dim dic As Object
Dim arr
arr = Range("a1:b60")
Set dic = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
    If Not dic.exists(arr(i, 1)) Then
        n = n + 1
        dic(arr(i, 1)) = arr(i, 2)
        Cells(3 + n, 5) = arr(i, 1)
        Cells(3 + n, 6) = arr(i, 2)
    Else
      For j = 1 To dic.Count
            If Cells(3 + j, 5) = arr(i, 1) Then
            Cells(3 + j, 100).End(xlToLeft).Offset(0, 1) = arr(i, 2)
            
            End If
      Next

    End If
Next
End Sub

680926

Sub test2()
Dim i As Integer
Dim dic As Object
Dim arr
arr = Range("a1:b60")
Set dic = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
    If Not dic.exists(arr(i, 1)) Then
        n = n + 1
        dic(arr(i, 1)) = arr(i, 2)
        Cells(3 + n, 5) = arr(i, 1)
        Cells(3 + n, 6) = arr(i, 2)
    Else
      For j = 1 To dic.Count
            If Cells(3 + j, 5) = arr(i, 1) Then
            Cells(3 + j, 100).End(xlToLeft).Offset(0, 1) = arr(i, 2)
            
            End If
      Next

    End If
Next
End Sub

mjm04

透视表最简单方便！

函数的话，
1、试试万金油：INDEX+SAMLL+IF+ROW(或 COLUMN）的组合；

2、试试：XLOOKUP（或VLOOKUP 或LOOKUP）+ OFFSET  组合的的“动态区域查询”；

昨日暗影

=IFERROR(INDEX(OFFSET(INDIRECT("B"&MATCH($E5,$A:$A,0)),,,COUNTIF($A:$A,$E5),),COLUMN(A:A)),"")

昨日暗影

具体，请看附件

劲钟华

=IFERROR(INDEX($B:$B,SMALL(IF($E5=$A$3:$A$60,ROW($A$3:$A$60)),COLUMN(A1))),"")
三键，右拉下拉

臧礼莉

用PQ，里面的透视和逆透视可以完美解决你的需求