[已解决]求助：倒数第三行自动插入两行。

sgpxb

实现目标：
只要在总计上倒数第三行A列（即40行A列）输入数据，就自动在总计上一行插入两个空白行，并将上两个空白行复制过来（因为表格D列有公式，两行的底色又不一样，所以两行一起复制），当数据再输入至总计上倒数第三行，又是这样处理。

最佳答案

月排行榜 / 总排行榜

grf1973

2017-7-10 14:15

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     r = [a:a].Find("总计").Row
   
4.     If Target.Column <> 1 Or Target.Row <> r - 3 Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     Rows(r - 2 & ":" & r - 1).Copy
   
7.     Rows(r).Insert Shift:=xlDown
   
8.     Application.CutCopyMode = False
   
9.     Cells(r + 2, 2).Formula = "=sum(r3c:r[-1]c)"
   
10.     Cells(r + 2, 4).Formula = "=sum(r3c:r[-1]c)"
    
11.     Application.EnableEvents = True
    
12. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     r = [a:a].Find("总计").Row
   
4.     If Target.Column <> 1 Or Target.Row <> r - 3 Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     Rows(r - 2 & ":" & r - 1).Copy
   
7.     Rows(r).Insert Shift:=xlDown
   
8.     Application.CutCopyMode = False
   
9.     Application.EnableEvents = True
   
10. End Sub
    

复制代码

sgpxb

grf1973 发表于 2017-7-10 10:39

谢谢大神，还有一个问题，麻烦再帮我改改，总计一行的B列和D列都有自动求和公式，插入行后公式不变化。

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     r = [a:a].Find("总计").Row
   
4.     If Target.Column <> 1 Or Target.Row <> r - 3 Then Exit Sub
   
5.     Application.EnableEvents = False
   
6.     Rows(r - 2 & ":" & r - 1).Copy
   
7.     Rows(r).Insert Shift:=xlDown
   
8.     Application.CutCopyMode = False
   
9.     Cells(r + 2, 2).Formula = "=sum(r3c:r[-1]c)"
   
10.     Cells(r + 2, 4).Formula = "=sum(r3c:r[-1]c)"
    
11.     Application.EnableEvents = True
    
12. End Sub

复制代码