'############################################################### '函数作用:对多栏排序 '############################################################### Function SortData() Dim No As Long '记录总数 Dim Nx As Long '循环变量 Dim sNo As Long '起始位置 Dim oTx As Variant, sTx As Variant No = ActiveSheet.Range("A65535").End(xlUp).Row + 1 For Nx = 2 To No oTx = Cells(Nx, 4).Value If sTx <> oTx Then If sNo <> 0 Then Rows(sNo & ":" & Nx ‐ 1).Sort Key1 = Range("H2"), Order1 = xlAscending, _ Key2 = Range("J2"), Order2 = xlAscending, _ Header = xlGuess 'Key3:=Range("F2"), Order3:=xlAscending, _ Header = xlGuess sNo = Nx Else sNo = Nx End If sTx = oTx End If Next End Function |
|