VBA多列(多字段)冒泡排序

// An highlighted block
Sub t()
   '  maopaoSort Sheets("FACList"), Array(2, 4, 3)
    maopaoSort Sheets("OBDList"), Array(3, 5, 4)
End Sub



Sub maopaoSort(sh As Worksheet, sortSZ)
    Dim lastRow As Long, lastCol As Long
    Dim targetRng As Range, sz
    With sh
         Set targetRng = .UsedRange
         lastRow = targetRng.Rows.count
         lastCol = targetRng.Columns.count
         sz = targetRng
    End With
      
      Dim count As Long

    Dim i As Long, j As Long, t(1 To 30), h As Long, k As Long
    For h = 1 To UBound(sortSZ)
     count = 0
re:
        For i = 2 To lastRow - 1
  
            j = i + 1
              If sz(i, sortSZ(h)) < sz(j, sortSZ(h)) Then
                       For k = 1 To lastCol
                             t(k) = sz(i, k)
                             sz(i, k) = sz(j, k)
                             sz(j, k) = t(k)

                       Next k
                         GoTo re
               End If

        Next i
    Next h
    sh.UsedRange = sz
End Sub