为什么我的排序出现异常？

gmts

cui26896 发表于 2022-5-27 09:51
For i = 2 To UBound(br) - 1
这一句修改后没有保存，应该是
For i = 2 To UBound(br)

谢谢赐教，就是这样的效果

hxw0204

原因是男生结束后，没有清空字典d2

ykcbf1100

根据L列中的性别和数字排序

ykcbf1100

1. Sub ykcbf()   '//2025.3.14    排序
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set sh = ThisWorkbook.Sheets("班级成绩对比表")
   
5.     With sh
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         arr = .Range("a2:n" & r)
   
8.     End With
   
9.     For i = 1 To UBound(arr)
   
10.         st = Split(arr(i, 12), "-")
    
11.         arr(i, 13) = st(0)
    
12.         arr(i, 14) = st(1)
    
13.     Next
    
14.     Set sht = ThisWorkbook.Worksheets.Add
    
15.     With sht
    
16.         .Name = "TempSheet"
    
17.         Set Rng = .Range("a1:n" & r - 1)
    
18.         Rng.Value = arr
    
19.         With Rng
    
20.             .Parent.Sort.SortFields.Clear
    
21.             .Sort key1:=.Item(13), order1:=1, key2:=.Item(14), order2:=1, Header:=2
    
22.         End With
    
23.         arr = Rng.Value
    
24.     End With
    
25.     sht.Delete
    
26.     sh.Range("a2:l" & r) = arr
    
27.     Application.DisplayAlerts = True
    
28.     Application.ScreenUpdating = True
    
29. End Sub
    
30. 
    

复制代码