EXCEL高手请进:如何根据学生信息,按班级设置打印?

发布网友发布时间：2022-05-25 03:31

共2个回答

热心网友时间：2024-06-04 08:14

Sub 复制新表()
Application.ScreenUpdating = False
Dim arr()
tr = 1
Dim i, j, k
For i = 2 To Sheets("班主任信息").Range("A65536").End(xlUp).Row
Sheets("打印表").Rows("7:65536").Select
Selection.Delete Shift:=xlUp
tr = 1
rr = Sheets("学生信息汇总").Range("A65536").End(xlUp).Row
ReDim arr(1 To rr, 1 To 16)
For j = 4 To Sheets("学生信息汇总").Range("A65536").End(xlUp).Row
If Sheets("学生信息汇总").Cells(j, 2) & Sheets("学生信息汇总").Cells(j, 3) & _
Sheets("学生信息汇总").Cells(j, 4) = Sheets("班主任信息").Cells(i, 1) & Sheets("班主任信息").Cells(i, 2) & Sheets("班主任信息").Cells(i, 3) Then
For c = 1 To 16
arr(tr, c) = Sheets("学生信息汇总").Cells(j, c)
Next
tr = tr + 1
End If
Next j
Sheets("打印表").[a7].Resize(tr, 16) = arr
Sheets("打印表").Range("A3") = "思茅区倚象镇" & Sheets("班主任信息").Cells(i, 5) & "村委会"
Sheets("打印表").Range("K3") = "倚象镇" & Sheets("班主任信息").Cells(i, 1)
……
……
……
详细代码，传给你。

热心网友时间：2024-06-04 08:15

先把汇总表做好然后找到班级那一列按升序扩展排序就行了