字典数组重新排序再输出的问题

ykcbf1100

二维数组排序

ykcbf1100

1. Sub ykcbf()   '//2025.3.18
   
2.     arr = Sheets("Sheet2").[a2].CurrentRegion
   
3.     ksort arr, 1
   
4.     With Sheets("Sheet1")
   
5.         .[f2].Resize(UBound(arr), UBound(arr, 2)) = arr
   
6.         Set Rng = .[f2].Resize(UBound(arr), UBound(arr, 2))
   
7.         Rng.Sort Rng.Columns(1), 1, Orientation:=1
   
8.     End With
   
9. End Sub
   
10. 
    
11. Sub ksort(arr, col)
    
12.     n = UBound(arr, 1)
    
13.     For i = 1 To n - 1
    
14.         For j = 1 To n - i
    
15.             If arr(j, col) > arr(j + 1, col) Then
    
16.                 For k = LBound(arr, 2) To UBound(arr, 2)
    
17.                     temp = arr(j, k)
    
18.                     arr(j, k) = arr(j + 1, k)
    
19.                     arr(j + 1, k) = temp
    
20.                 Next k
    
21.             End If
    
22.         Next j
    
23.     Next i
    
24. End Sub
    
25. 
    

复制代码