12列依次按升序排序12次的代码问题

SHANGDU629

问题：对表中A~L列依次按升序进行自动筛选排序的问题

也即先对A列升级排序、后依次对B、C等升级排序，直至到L列结束的代码。

要求排序从第4行开始

请老师或路过的朋友帮助下，谢谢！

也即结果为：对表中所有列都进行升级排序，即执行12次自动筛选。

网上找了段代码，试用后只能用一次第4句就出现问题了，本此代码加个循环就可以解决了。

1.  Sub shishi()

2.      With Sheet1.Sort

3.         .SortFields.Add Range("A2", Cells(Rows.Count,1).End(3))

4.         .SetRange Range("A1", Cells(Rows.Count, 1).End(3)):.Apply

5.      End With

6.  End Sub

tanglf188

sort会保存上次的设置，所以在sort前要先清除上次的设置

ykcbf1100

普通排序只能3个条件，自定义排序可以多个条件。

SHANGDU629

tanglf188 发表于 2023-2-28 13:57
sort会保存上次的设置，所以在sort前要先清除上次的设置

首先非常您的回复与帮助。试运行了上面的代码，但【     .Add2 Key:=Range("A2:A" & last)
】这一句就运行不下去了，不知啥原因。

SHANGDU629

ykcbf1100 发表于 2023-2-28 14:07
普通排序只能3个条件，自定义排序可以多个条件。

老师，首先非常感谢帮助！运行了你的代码，发现除了A列外余不对，估计其它列中间还出现了空的单元格，说明应是更不对了。

松永

看下排序结果是否为所要的？

ykcbf1100

SHANGDU629 发表于 2023-2-28 14:38
老师，首先非常感谢帮助！运行了你的代码，发现除了A列外余不对，估计其它列中间还出现了空的单元格，说 ...

代码应该没问题吧。

SHANGDU629

松永 发表于 2023-2-28 14:39
看下排序结果是否为所要的？

老师，首先非常感谢你的帮助！谢谢！
不知是我EXCEL2010版本太低的原因否，【ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range(Cells(4, j), Cells(i, j)) _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal】这一句就无法运行。
另看你运行结果后单元格中间出现较多的空单元格，就感觉不对了。
其实我要的是很简单的结果：先对A列按升级排序【此时其它列是不动的】，排好后，再对B列按升级排序【此时其它列是不动的】，一直向右排完为止。做这目的是为了好比较。这样说不知说清楚了没有。
最后再次对各位老师与朋友们的帮助表示感谢！

demonimissyou

Sub yunxing()
Dim i, j, k, l, arr, str
arr = Sheet1.UsedRange
For i = 1 To 12
    For j = 4 To UBound(arr)
        For k = 4 To UBound(arr)
        If arr(k, i) = "" Then
        Exit For
        ElseIf arr(k, i) > arr(j, i) Then
        str = arr(k, i)
        arr(k, i) = arr(j, i)
        arr(j, i) = str
        End If
        Next
    Next
Next
[A4].Resize(UBound(arr), 12) = arr
Rows("4:7").Select
Selection.Delete Shift:=xlUp
End Sub

shenzhenyang

tanglf188 发表于 2023-2-28 13:57
sort会保存上次的设置，所以在sort前要先清除上次的设置

老师，请问如果是降序是改代码那个地方