用VBA把不及格者姓名科目成绩提取出来

today0427

pengyx 发表于 2016-9-27 13:59
第三种方法：设一个0到59的数组，把成绩依次写时去，能写进的就是不及格的，不能写入的就是及格的

大神帮我批改下

1. Sub bjg()
   
2. Dim arr, xr(0 To 59), i&, j%, k&, brr()
   
3.     arr = Sheets("sheet1").[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr) * 7, 1 To 3)
   
5.     For i = 2 To UBound(arr)
   
6.         For j = 2 To UBound(arr)
   
7.             On Error Resume Next
   
8.             xr(arr(i, j)) = 1
   
9.             If Err.Number = 9 Then GoTo 100
   
10.             k = k + 1
    
11.             brr(k, 1) = arr(i, 1): brr(k, 2) = arr(1, j): brr(k, 3) = arr(i, j)
    
12. 100
    
13.         Next
    
14.     Next
    
15.     On Error GoTo 0
    
16.     Sheets("sheet1").[j2].Resize(k, 3).Clear
    
17.     Sheets("sheet1").[j2].Resize(k, 3) = brr
    
18. End Sub
    

复制代码

laoau138

today0427 发表于 2016-9-27 14:54
大神帮我批改下

用VBA整理A1单元格分成两列


http://www.excelpx.com/thread-424740-1-1.html