怎么根据班级人数，在最后一名学生后面插入空白行

18959789768

这个是我做的简单的准考证打印模板。每一页打印的是8名学生的准考证，求助一下怎么根据班级的人数，在最后一名学生后面插入空白行，让班级行数变成8的位数。例如：1班有50名同学，要插入6行，如果班级45人，就插入3行，保证8的倍数。求助各位大神，怎么弄方便！

chxw68

修改好了。你的数据有坑！座号中间有间断。

18959789768

好像没有上传附件

3190496160

直接把目前的这8个准考证区域作为一个模板套打不行吗？何必搞得那么复杂呢

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim rng As Range
   
5.     Application.ScreenUpdating = False
   
6.     Application.DisplayAlerts = False
   
7.     With Worksheets("数据")
   
8.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         arr = .Range("a1:f" & r)
   
10.         Set rng = .Rows(r + 1)
    
11.         For i = 1 To UBound(arr)
    
12.             If Len(arr(i, 1)) = 0 Then
    
13.                 Set rng = Union(rng, .Rows(i))
    
14.             End If
    
15.         Next
    
16.         rng.Delete
    
17.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
18.         arr = .Range("a1:f" & r)
    
19.         For i = UBound(arr) To 3 Step -1
    
20.             If arr(i, 2) <> arr(i - 1, 2) Then
    
21.                 x = Application.Ceiling(arr(i - 1, 3), 8) - arr(i - 1, 3)
    
22.                 If x <> 0 Then
    
23.                     .Rows(i).Resize(x).Insert
    
24.                 End If
    
25.             End If
    
26.         Next
    
27.     End With
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "数据处理完毕！"
    
30. End Sub
    

复制代码

chxw68

详见附件。

usedrange

猜一个，速度有些慢。

usedrange

。。。。。。

18959789768

chxw68 发表于 2024-12-23 16:49

感谢大神，我测试了下。1班的插入的行数是对的，但是2班开始就错了。不知道是不是我的表述错了。需要插入的行数要根据班级的人数定。比如：1班49人，就需要插入7行那就是56行，8的倍数。如果2班是51人的话，就插入5行，也是8的位数。如果是48人正好是8的位数就不需要插入了。

chxw68

修改好了。