数据更改和总和数据组之后的VBA插入行
我有一个长时间的数据报告客户，我正在写一个VBA脚本来简化。 他们希望在每组客户端之后插入一个空行。 这是满足的：
Dim lRow As Long For lRow = Cells(Cells.Rows.Count, "C").End(xlUp).Row To 3 Step -1 If Cells(lRow, "C") <> Cells(lRow - 1, "C") Then Rows(lRow).EntireRow.Insert Next lRow 现在，在这个空行中，我需要F列中的值为前一组的AutoSum（即通向空行的数据）。
我一直试图使用空白的特殊单元格types，但似乎无法得到任何工作。 任何build议将不胜感激。
这里有一个链接到如何格式化数据的截图作为参考： https : //copy.com/BVInYaDLqDgXo6K7
提前致谢！
对于任何寻找VBA答案的人来说，下面的工作对我来说是：
Range("A1").Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6), _ Replace:=False, PageBreaks:=False, SummaryBelowData:=True
分组依据是数据分组的依据。 ** Array旁边括号中的数字是前一个函数应用于的列。
感谢@Rory的灵感。