[已解决]请帮忙修改代码

ykfexcel

要解决的问题：按月记录，多次点汇总，前面的各月会多次出现“本月合计”“本年累计”，例如：当一月记录完后，点“汇总”，出现“本月合计”“本年累计”，这是对的，但当把二月的数据记录完后，再点“汇总”时，则在一月的后面又出现了一次“本月合计”“本年累计”，显然重复了，只要保留一次怎么办？请帮忙修改代码，先谢了！！

1. Sub 汇总()
   
2. Dim i As Integer
   
3. Dim mjj As Double, yjj As Double, mdj As Double, ydj As Double
   
4. For i = 6 To 999
   
5. mjj = Range("e" & i).Value + mjj
   
6. mdj = Range("f" & i).Value + mdj
   
7. yjj = yjj + Range("e" & i).Value
   
8. ydj = ydj + Range("f" & i).Value
   
9. If Month(Range("a" & i)) <> Month(Range("a" & i + 1)) And Range("d" & i + 2) <> "本年累计" Then
   
10. Rows(i + 1 & ":" & i + 2).Insert
    
11. Range("d" & i + 1) = "本月合计"
    
12. Range("d" & i + 2) = "本年累计"
    
13. Range("e" & i + 1) = mjj
    
14. Range("f" & i + 1) = mdj
    
15. Range("e" & i + 2) = yjj
    
16. Range("f" & i + 2) = ydj
    
17. mjj = 0: mdj = 0
    
18. i = i + 2
    
19. End If
    
20. Next i
    
21. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

qh8600

2014-7-12 15:53

1. Sub 汇总()
   
2. Dim i As Integer
   
3.     Dim mjj As Double, yjj As Double, mdj As Double, ydj As Double
   
4.     For i = 6 To 999
   
5.         mjj = Range("e" & i).Value + mjj
   
6.         mdj = Range("f" & i).Value + mdj
   
7.         yjj = yjj + Range("e" & i).Value
   
8.         ydj = ydj + Range("f" & i).Value
   
9.             If Month(Range("a" & i)) <> Month(Range("a" & i + 1)) And Range("d" & i + 2) <> "本年累计" And Range("a" & i) <> "" Then
   
10.                 Rows(i + 1 & ":" & i + 2).Insert
    
11.                 Range("d" & i + 1) = "本月合计"
    
12.                 Range("d" & i + 2) = "本年累计"
    
13.                 Range("e" & i + 1) = mjj
    
14.                 Range("f" & i + 1) = mdj
    
15.                 Range("e" & i + 2) = yjj
    
16.                 Range("f" & i + 2) = ydj
    
17.                 mjj = 0: mdj = 0
    
18.                 i = i + 2
    
19.             End If
    
20.     Next i
    
21. End Sub
    

复制代码

加个判断试试

按月汇总.rar (22.35 KB, 下载次数: 15)

2014-7-12 15:57 上传

点击文件名下载附件

跳转到最佳答案楼层

ykfexcel

附件如下： 按月汇总.zip (22.87 KB, 下载次数: 7)

2014-7-12 15:17 上传

点击文件名下载附件

qh8600

1. Sub 汇总()
   
2. Dim i As Integer
   
3.     Dim mjj As Double, yjj As Double, mdj As Double, ydj As Double
   
4.     For i = 6 To 999
   
5.         mjj = Range("e" & i).Value + mjj
   
6.         mdj = Range("f" & i).Value + mdj
   
7.         yjj = yjj + Range("e" & i).Value
   
8.         ydj = ydj + Range("f" & i).Value
   
9.             If Month(Range("a" & i)) <> Month(Range("a" & i + 1)) And Range("d" & i + 2) <> "本年累计" And Range("a" & i) <> "" Then
   
10.                 Rows(i + 1 & ":" & i + 2).Insert
    
11.                 Range("d" & i + 1) = "本月合计"
    
12.                 Range("d" & i + 2) = "本年累计"
    
13.                 Range("e" & i + 1) = mjj
    
14.                 Range("f" & i + 1) = mdj
    
15.                 Range("e" & i + 2) = yjj
    
16.                 Range("f" & i + 2) = ydj
    
17.                 mjj = 0: mdj = 0
    
18.                 i = i + 2
    
19.             End If
    
20.     Next i
    
21. End Sub
    

复制代码

加个判断试试

按月汇总.rar (22.35 KB, 下载次数: 15)

2014-7-12 15:57 上传

点击文件名下载附件

ykfexcel

qh8600 发表于 2014-7-12 15:53
加个判断试试

不好意思，按月运行的话，出现了新的问题，那就是结果有误，能不能再帮忙解决