一个很难的排序问题

lomita2003

一个排序，对于我来说很难~！先谢谢各位大神走过路过，帮忙看看

miaojohn45

代码就是VBA，公式不是代码。

=LET(A,SORT(UNIQUE(C6:C11),,-1),B,MAP(FILTER(A,A>0),LAMBDA(X,TEXTJOIN("、",,IF(C6:C11=X,B6:B11,""))&X)),TEXTJOIN("，",,B))&"。"

无关岁月

大差不差，只能这样了

1. =LET(_a,FILTER(B6:C11,C6:C11),TEXTJOIN("，",,BYROW(CHOOSECOLS(GROUPBY(DROP(_a,,1),TAKE(_a,,1),LAMBDA(_b,TEXTJOIN("、",,_b)),,0,-1),2,1),CONCAT)))

复制代码

lomita2003

miaojohn45 发表于 2024-5-10 22:42
代码就是VBA，公式不是代码。

我以为写控件按钮那种才是vba。。。是我文盲了

lomita2003

无关岁月 发表于 2024-5-10 22:54
大差不差，只能这样了

代码一小步，目标一大步！先感谢一下

miaojohn45

lomita2003 发表于 2024-5-10 22:54
我以为写控件按钮那种才是vba。。。是我文盲了

写控件的是VBA代码。公式不是代码，也不是VBA。

魚。。

不用vba，你的版本就用辅助列

lomita2003

魚。。 发表于 2024-5-10 23:47
不用vba，你的版本就用辅助列

很厉害的样子，我学习一下，感谢论坛大佬！

3190496160

Sub 排序()
Dim ar As Variant
Dim i As Long, r As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With ActiveSheet
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b5:c" & r)
    For i = 2 To UBound(ar)
        For s = i + 1 To UBound(ar)
            If ar(i, 2) < ar(s, 2) Then
                For j = 1 To UBound(ar, 2)
                    k = ar(i, j)
                    ar(i, j) = ar(s, j)
                    ar(s, j) = k
                Next j
            End If
        Next s
        zd = ar(i, 2)
        If zd > 0 Then
            If d(zd) = "" Then
                d(zd) = ar(i, 1)
            Else
                d(zd) = d(zd) & "," & ar(i, 1)
            End If
        End If
    Next i
    zd = ""
    For Each k In d.keys
        wf = d(k)
        If InStr(wf, ",") = 0 Then
            If zd = "" Then
                zd = d(k) & k
            Else
                zd = zd & "," & d(k) & k
            End If
        Else
            zf = ""
            rr = Split(wf, ",")
            For s = 0 To UBound(rr)
                If zf = "" Then
                    zf = rr(s)
                Else
                    zf = zf & "," & rr(s)
                End If
            Next s
            zf = zf & "各" & k
            If zd = "" Then
                zd = zf
            Else
                zd = zd & "," & zf
            End If
        End If
    Next k
    .[j6] = zd
    MsgBox zd
End With
End Sub

3190496160

一个很难的排序问题.rar (15.54 KB, 下载次数: 7)

2024-5-11 09:58 上传

点击文件名下载附件