如何根据考试成绩册导出目标表各科缺考学生明细

yzyyyyyyy

原始表：各学科成绩，有部分学科未考试列为空白，考试科目缺考为空白，考试得分为零也算缺考
目标表：导出各学科缺考即成绩为空白或为0的明细表，核查校对是否确实缺考 如何根据考试成绩册导出目标表各科缺考学生明细.rar (8.97 KB, 下载次数: 3)

2019-12-17 16:17 上传

点击文件名下载附件

chxw68

楼主已经有代码了，简单修改了一下。

1. Sub 添加各科缺考学生到目标表()
   
2.   With Worksheets("原始表")
   
3.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
4.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
5.     arr = .Range("a1").Resize(r, c)
   
6.     ReDim brr(1 To UBound(arr) * (UBound(arr, 2) - 6), 1 To 7)
   
7.     m = 0
   
8.     For j = 7 To UBound(arr, 2)
   
9.       If Application.Count(Application.Index(arr, 0, j)) > 0 Then
   
10.         For i = 2 To UBound(arr)
    
11.           If Len(arr(i, j)) = 0 Or arr(i, j) = 0 Then
    
12.             m = m + 1
    
13.             brr(m, 1) = 7 '年级
    
14.             brr(m, 2) = arr(1, j) '科目
    
15.             brr(m, 3) = arr(i, 5) '试场
    
16.             brr(m, 4) = arr(i, 6) '座号
    
17.             brr(m, 5) = arr(i, 1) '班级
    
18.             brr(m, 6) = arr(i, 3) '姓名
    
19.             brr(m, 7) = arr(i, j) '分数
    
20.           End If
    
21.         Next
    
22.       End If
    
23.     Next
    
24.   End With
    
25.   With Sheets("目标表")
    
26.     .Range("A" & .Range("B65535").End(3).Row + 1).Resize(m, UBound(brr, 2)) = brr
    
27.   End With
    
28. End Sub
    

复制代码

chxw68

修改好了。