[已解决]如何在各个日期后面插入两行

ycb20010823

有两个表，一个是原始，一个是最后表，最后表那个是最终想要的结果，如何在原始表中，写一段代码，自动根据日期，在每个日期后面加上两个空行，并写上“本日合计”和“累计”字样，谢谢各位大虾！！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-19 14:27

试试效果。。。。。。。

跳转到最佳答案楼层

zjdh

写上“本日合计”和“累计”字样，对应列要否计算？

ycb20010823

计算代码我自己写完了，就是能根据日期，在下面自动插入两行，就可以了，谢谢！！

mxg825

试试效果。。。。。。。

zjdh

短信收到
上年结转下不添加合计只要修改一条数据：
Sub 插入合计行()
    Dim K%, S%
    K = 5: S = 4
    Application.ScreenUpdating = False    '关闭刷新 提高速度
    Do
.........................

mxg825

zjdh 发表于 2011-10-19 14:58
短信收到
上年结转下不添加合计只要修改一条数据：
Sub 插入合计行()

是的 但累计时，要补加 上年结存！

ycb20010823

我不明白这里的S是指的什么？S=4是什么意思啊。不能是5吗？

ycb20010823

mxg825 、zjdh 两位朋友，谢谢你，我的这个问题完全解决了，比我自己写的代码精简多了，谢谢朋友的支持！！！

mxg825

1. Sub 插入合计行()
   
2. Dim K%, S%
   
3. K = 5: S = 5
   
4. Application.ScreenUpdating = False '关闭刷新 提高速度
   
5. Do
   
6.   If CDate(Cells(K, 1)) <> CDate(Cells(K + 1, 1)) Then  '合计项
   
7.      Rows(K + 1 & ":" & K + 2).Insert '插入2行
   
8.      Cells(K + 1, 3) = "本日合计"
   
9.      Range(Cells(K + 1, 4), Cells(K + 1, 5)) = "=sum(r" & S & "c:r[-1]c)"
   
10.      Cells(K + 2, 3) = "累计合计"
    
11.      Range(Cells(K + 2, 4), Cells(K + 2, 5)) = "=sumif(r4c3:r[-1]c3, ""本日合计"",r4c:r[-1]c)+r4c"
    
12.      Range(Cells(K + 1, 3), Cells(K + 2, 5)).Interior.ColorIndex = 40 '填充底色
    
13.      Cells(K + 1, 2).Resize(2, 4).Font.Bold = True '加粗字体  （Resize 扩大区域） 返回区域与上句一样
    
14.      K = K + 2: S = K + 1
    
15.   End If
    
16.   K = K + 1
    
17. Loop Until Cells(S, 2) = ""
    
18. Range("A4").Resize(K - 4, 7).Borders.LineStyle = 1 '加网格线
    
19. Application.ScreenUpdating = True '开启刷新
    
20. MsgBox "完成"
    
21. End Sub

复制代码

ycb20010823

CDate，是什么函数啊，我怎么没有见过呢？？？