间隔固定行数插入两行

jacksc

test.rar (112.39 KB, 下载次数: 4)

2015-1-7 15:43 上传

点击文件名下载附件

各位老师：详见附件，前面间隔固定19行插入两行，最后不足19行时，就不插入了，请帮忙看看。谢谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("sheet1")
   
4.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.     For i = r To 7 Step -1
   
6.       If (i - 7) Mod 19 = 0 Then
   
7.         .Rows(i & ":" & i + 1).Insert
   
8.         .Cells(i, 3) = "过次页"
   
9.         .Cells(i + 1, 3) = "承前页"
   
10.       End If
    
11.     Next
    
12.   End With
    
13. End Sub
    

复制代码

chxw68

详见附件。

chxw68

写了一段删除插入的“过次页”、“承前页”行数据的代码。

1. Sub 删除()
   
2.   Dim r%, i%
   
3.   Dim rng As Range
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
6.     Set rng = .Rows(r + 1)
   
7.     For i = 8 To r
   
8.       If .Cells(i, 3) = "过次页" Or .Cells(i, 3) = "承前页" Then
   
9.         Set rng = Union(rng, .Rows(i))
   
10.       End If
    
11.     Next
    
12.     rng.Delete
    
13.   End With
    
14. End Sub
    

复制代码

feiren228

请测试

1. Sub test()
   
2.     r = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
   
3.     For i = r To 9 Step -1
   
4.        If (i - 7) Mod 19 = 1 Then
   
5.         For n = 1 To 2
   
6.             Rows(i).Insert
   
7.             If n = 1 Then Cells(i, 3) = "承前页"
   
8.             If n = 2 Then Cells(i, 3) = "过次页"
   
9.         Next
   
10.        End If
    
11.     Next
    
12. End Sub
    

复制代码

chxw68

参见附件。

feiren228

附件》》》》》》

test22.rar (114.16 KB, 下载次数: 7)

2015-1-7 16:14 上传

点击文件名下载附件

jacksc

chxw68 发表于 2015-1-7 16:03

老师：有空请解释下 5-6句，谢谢！

chxw68

jacksc 发表于 2015-1-7 17:34
老师：有空请解释下 5-6句，谢谢！

05.    For i = r To 7 Step -1 '从数据区域最后一行往上循环到第7行

06.      If (i - 7) Mod 19 = 0 Then ‘判断所在行是否为要插入空行的位置