分类排序问题

lzybones

需要先把大类（三位数字）排序，再把三位数字下面的小类（五位数字）排序

百度不到去谷歌

辅助列left(A2,3)&text(b2,"0000")
下拉 辅助列降序

lzybones

百度不到去谷歌 发表于 2015-11-24 14:31
辅助列left(A2,3)&text(b2,"0000")
下拉 辅助列降序

这样只是大类里的小类排序了，还需要先排序大类，比如:大类(109)>大类(105)>大类(108)

百度不到去谷歌

lzybones 发表于 2015-11-24 14:36
这样只是大类里的小类排序了，还需要先排序大类，比如:大类(109)>大类(105)>大类(108)

你试过了再说好么
1090043
1080031
难道109不会排在前面？你105排在108前面 就不知道是什么逻辑了 如果是完全自定义的逻辑 只能另外做辅助列

t13564865256

百度不到去谷歌 发表于 2015-11-24 14:38
你试过了再说好么
1090043
1080031

他的要求不是按照类别排序，是类别旁边的那排小数字排序。表格公式是很难做到的。

t13564865256

想了一下，发现VBA实现起来也挺麻烦的。好像需要重新写入新表。还方便点。可能还要建立数组辅助列。

39660519

Sub 分类排序()
Range("E3：F" & Rows.Count) = ""
Dim ARR, ARR1(), ARR2(), BM, CS
A = Cells(Rows.Count, "A").End(3).Row
ARR = Range("A3：B" & A)
A = UBound(ARR)
For B = 1 To A
    BM = ARR(B, 1)
    CS = ARR(B, 2)
    If Len(BM) = 3 Then
        C = C + 1
        D = 0
        ReDim Preserve ARR1(1 To 3, 1 To C)
        ARR1(1, C) = BM
        ARR1(2, C) = CS
    Else
        D = D + 1
        If D = 1 Then
            ReDim ARR2(1 To 2, 1 To 1)
        Else
            ARR2 = ARR1(3, C)
        End If
        ReDim Preserve ARR2(1 To 2, 1 To D)
        ARR2(1, D) = BM
        ARR2(2, D) = CS
        ARR1(3, C) = ARR2
    End If
Next B
For A = UBound(ARR1, 2) - 1 To 1 Step -1
    For B = 1 To A
        If ARR1(2, B) < ARR1(2, B + 1) Then
            For C = 1 To 3
                GDZ = ARR1(C, B)
                ARR1(C, B) = ARR1(C, B + 1)
                ARR1(C, B + 1) = GDZ
            Next C
        End If
    Next B
Next A
For A = 1 To UBound(ARR1, 2)
    B = Cells(Rows.Count, "E").End(3).Row + 1
    Cells(B, "E") = ARR1(1, A)
    Cells(B, "F") = ARR1(2, A)
    ARR2 = ARR1(3, A)
    For C = UBound(ARR2, 2) - 1 To 1 Step -1
        For D = 1 To C
            If ARR2(2, D) < ARR2(2, D + 1) Then
                GDZ1 = ARR2(1, D)
                GDZ2 = ARR2(2, D)
                ARR2(1, D) = ARR2(1, D + 1)
                ARR2(2, D) = ARR2(2, D + 1)
                ARR2(1, D + 1) = GDZ1
                ARR2(2, D + 1) = GDZ2
            End If
        Next D
    Next C
    B = Cells(Rows.Count, "E").End(3).Row + 1
    Cells(B, "E").Resize(UBound(ARR2, 2), 2) = WorksheetFunction.Transpose(ARR2)
Next A
End Sub

lzybones

百度不到去谷歌 发表于 2015-11-24 14:38
你试过了再说好么
1090043
1080031

可能没写明白，左边的只是一个类别名称，需要按右边的次数大小来排序

lzybones

39660519 发表于 2015-11-24 14:53
Sub 分类排序()
Range("E3：F" & Rows.Count) = ""
Dim ARR, ARR1(), ARR2(), BM, CS

谢谢老师！正是我要的结果！但研究了半天，还是没搞明白怎么做到的，没法举一反三，留下来慢慢琢磨吧

jnsxmt

按数据块排序.rar