每52行插入一行固定内容？

QZBS2012

详见附件，附件的代码是每52行（不包括标题行）插入空行  我想实现空行变2行，变具体的文字 如：“     制表人：     审核人：     ”  还有一行“制表日期：”  请高手指点 万分感谢！！！！！！！！！！！！！！！

一望无垠

把下面的代码在复制一次就行。
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

QZBS2012

一望无垠 发表于 2017-3-10 09:19
把下面的代码在复制一次就行。
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

不行吧 那复制不是插入2个空行吗 我要有内容的 亲

huanglicheng

供参考

1. Sub 插入()
   
2. 
   
3. Dim I, J As Integer
   
4. 
   
5. I = 2
   
6. 
   
7. Const MM = 52 '每个52行插入1行
   
8. 
   
9. J = 0
   
10. 
    
11. Do While Cells(I, 1) <> "" '表头默认为第一行，当第一列数据为空时，表示数据项结束
    
12. 
    
13.     If J Mod MM = 0 Then
    
14. 
    
15.      Range(Cells(I, 1), Cells(I + 1, 1)).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    
16.    
    
17.      Range(Cells(I, 1), Cells(I, 2)).Value = Array("制表人:", "审核人")
    
18.      Cells(I + 1, 1).Value = "制表日期:"
    
19. 
    
20.      I = I + 1
    
21. 
    
22.     End If
    
23. 
    
24. I = I + 1
    
25. 
    
26. J = J + 1
    
27. 
    
28. Loop
    
29. 
    
30. End Sub
    

复制代码

QZBS2012

huanglicheng 发表于 2017-3-10 09:50
供参考

请测试，我发现第二行第三行 就出现制表人 制表日期了

huanglicheng

QZBS2012 发表于 2017-3-10 12:12
请测试，我发现第二行第三行 就出现制表人 制表日期了

1. Sub 插入()
   
2. 
   
3. Dim I, J As Integer
   
4. 
   
5. I = 2
   
6. 
   
7. Const MM = 52 '每个52行插入1行
   
8. 
   
9. J = 0
   
10. 
    
11. Do While Cells(I, 1) <> "" '表头默认为第一行，当第一列数据为空时，表示数据项结束
    
12. 
    
13.     If J Mod MM = 0 And J > 0 Then
    
14. 
    
15.      Range(Cells(I, 1), Cells(I + 1, 1)).EntireRow.Insert
    
16.    
    
17.      Range(Cells(I, 1), Cells(I, 2)).Value = Array("制表人:", "审核人")
    
18.      Cells(I + 1, 1).Value = "制表日期:"
    
19. 
    
20.      I = I + 2
    
21. 
    
22.     End If
    
23. 
    
24. I = I + 1
    
25. 
    
26. J = J + 1
    
27. 
    
28. Loop
    
29. 
    
30. End Sub
    

复制代码

世界的征服者

上面的优点麻烦，用for 循环会简单很多，只要几行代码就行
for i=2 to cells(rows.count,2).end(xlup).row step 52'我没看你的实例，假设是从第二行开始
       要插入的内容
next