请帮助修改代码

抽屉123

修改代码的想法已在附件中说明了。谢谢！




                                 附件： 修改代码.zip (14.71 KB, 下载次数: 6)

2018-9-9 00:06 上传

点击文件名下载附件

abc123281

Sub 插入小计和合计()
  Application.ScreenUpdating = False
  Sheet14.Activate
  Dim rng As Range, c, i&, k&, r&
  r = Cells(Rows.Count, 1).End(3).Row
  If Cells(r, 2) = "合计" Then Exit Sub
  Cells(r + 2, 2) = "合计"
  Cells(r + 2, 1) = r - 4 & "笔"
  Cells(r + 1, 1).Resize(2, 13).Borders.LineStyle = 1
  Cells(r + 2, 1).Resize(1, 13).Interior.ColorIndex = 40
  k = 1
  For i = 6 To r * 2
    If Cells(i, 2) = "合计" Then Exit For
    a = Month(Cells(i, 4))
    b = Month(Cells(i - 1, 4))
    If a = b Then
      k = k + 1
    Else
      Rows(i).Insert
      r = r + 1
      Cells(i, 2) = "小计"
      Cells(i, 1) = k & "笔"
      For Each c In Array(7, 9, 10)
        Cells(i, c) = Application.Sum(Cells(i - k, c).Resize(k))
        Cells(r + 2, c) = Cells(r + 2, c) + Cells(i, c)
      Next
      Cells(i, 1).Resize(1, 13).Interior.ColorIndex = 35
      k = 1: i = i + 1
    End If
  Next
  Application.ScreenUpdating = True
End Sub

abc123281

修改代码123.rar (17.05 KB, 下载次数: 7)

2018-9-9 09:14 上传

点击文件名下载附件

约定的童话

2楼大师点睛之笔啊，厉害厉害！
a = Month(Cells(i, 4))
    b = Month(Cells(i - 1, 4))
    If a = b Then