试做排序法
Sub tt() '排序法
Dim arr, tmpArr
Dim str$, i%, n%, m%
Application.ScreenUpdating = False
tmpArr = Split([m2], ",")
ReDim arr(1 To UBound(tmpArr) + 1, 1 To 2)
For i = 0 To UBound(tmpArr)
arr(i + 1, 1) = tmpArr(i)
arr(i + 1, 2) = Rnd
Next
[k1].Resize(UBound(arr), 2) = arr
[k1].Resize(UBound(arr), 2).Sort [l1], , , , , , 1
For n = 2 To 6
str = ""
For m = 1 To 4
str = str & Chr(10) & m & "." & Cells(n * 4 - 8 + m, 11)
Next
Cells(n, 3) = Mid(str, 2)
Next
Range("k:l").ClearContents
Application.ScreenUpdating = ture
End Sub