如何将左边数据快速排列成右边的结果？

yanglinzi

用字典嵌套做一个

沈默00

yanglinzi 发表于 2024-4-9 20:46
用字典嵌套做一个

字典嵌套来的更加简洁，跟老师学习一下

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&, j&, m&, n&, p&, iRowSize&
   
    With [A1].CurrentRegion
        ar = .Resize(.Rows.Count + 1).Value
        ReDim br(1 To UBound(ar), 1 To UBound(ar))
        p = 2
        For i = 2 To UBound(ar) - 1
            If ar(i + 1, 1) <> ar(p, 1) Then
                m = m + 1: n = 1
                br(n, m) = ar(i, 1)
                For j = p To i
                    n = n + 1
                    br(n, m) = ar(j, 2)
                Next j
                If n > iRowSize Then iRowSize = n
                p = i + 1
            End If
        Next i
    End With
   
    [E1].CurrentRegion.Clear
    With [E1].Resize(iRowSize, m)
        .Value = br
        .Borders.LineStyle = xlContinuous
    End With
End Sub

gwjkkkkk

用数组写一个。。。

mjm04

E2单元格： =TOROW(UNIQUE(A2:A25))   回车

E3单元格：=FILTER($B$2:$B$25,$A$2:$A$25=E2)   回车右拉

cnmlgb9998

1. =VSTACK(TAKE(TRANSPOSE(GROUPBY(A2:A25,B2:B25,ARRAYTOTEXT,,0)),1),DROP(REDUCE("",DROP(TRANSPOSE(GROUPBY(A2:A25,B2:B25,ARRAYTOTEXT,,0)),1),LAMBDA(x,y,IFERROR(HSTACK(x,TEXTSPLIT(y,,",",TRUE)),""))),,1))

复制代码

cnmlgb9998

用PQ也方便。。。。。。。。

计划小文

E2=TOROW(UNIQUE(A2:A25,FALSE,FALSE))
E3=FILTER($B$2:$B$25,$A$2:$A$25=J2)横拉即可

ggw092

1. =DROP(PIVOTBY(B1:B25,A1:A25,B1:B25,T,1,0,,0),,1)

复制代码

格式没要求的话

有要求的话：

1. =LET(A,TOROW(UNIQUE(A2:A25)),VSTACK(A,DROP(IFNA(REDUCE("",A,LAMBDA(X,Y,HSTACK(X,FILTER(B2:B25,A2:A25=Y)))),""),,1)))

复制代码

mjm04

E1单元格：   
=WRAPCOLS(UNIQUE(A2:A25),1,"")
回车

E2单元格：
=FILTER($B$2:$B$25,$A$2:$A$25=E$1)  
回车，右拉     注意绝对/相对引用，也就是$的位置！