高难度分表+排序，求vba高手解决

zqlpop308

高难度分表+排序，求vba高手解决，要求把表格Sheet1中的考场情况拆分自动生成各学科的考场表格，同时要求按考场顺序排列+按座位号顺序排列

micch

难度不高，就是不知道D列的结果是啥？难道都是语数外三个字？

1. Sub test()
   
2.     arr = Sheet1.UsedRange.Offset(1)
   
3.     ReDim brr(1 To UBound(arr), 1 To 7)
   
4.         For i = 1 To UBound(arr) - 1
   
5.             brr(i, 1) = arr(i, 1)
   
6.             brr(i, 2) = arr(i, 2)
   
7.             brr(i, 3) = arr(i, 3)
   
8.             brr(i, 4) = "语数外"
   
9.             brr(i, 5) = Val(Mid(arr(i, 16), 4))
   
10.             brr(i, 6) = Val(Mid(arr(i, 16), InStr(arr(i, 16), "考场") + 2))
    
11.             brr(i, 7) = brr(i, 5) * 100 + brr(i, 6)
    
12.         Next
    
13.     With Sheet3
    
14.             .[a3].Resize(i, 7) = brr
    
15.             .[a3].Resize(i, 7).Sort .[g3]
    
16.             .[g:g].Clear
    
17.     End With
    
18. End Sub
    

复制代码

zqlpop308

micch 发表于 2020-1-14 17:06
难度不高，就是不知道D列的结果是啥？难道都是语数外三个字？

对于小白而言还是有难度的