VBA公式fildown EXCEL报告

我正在做一个excel报告。 我已经得到了一些帮助，编辑我的代码，但我卡在一个地方，不知道如何进行。 所以我在这里有代码：

Dim xlStartCol As Long xlStartCol = xlCol Do While Not g_RS3.EOF With xlSheet.Cells(xlRow, xlCol) .Resize(1, 2).Merge .Value = "TEST" 'g_RS3("ShortLabel") .Offset(1, 0).Resize(1, 2) = Array("Clients", "Students") .Offset(2, 0).Resize(1, 2).ClearContents With .Offset(0, 1) .Resize(1, 2).Merge .Value = "Total" 'keep writing Total to the right; it will be overwritten if there is another ShortLabel .Offset(1, 0).Resize(1, 2) = Array("Clients", "Students") .Offset(2, 0).Resize(1, 2).Formula = _ "=SUMIFS(" & Range(.Parent.Cells(xlRow + 2, xlStartCol), .Parent.Cells(xlRow + 2, xlCol + 1)).Address(0, 1) & Chr(44) & _ Range(.Parent.Cells(xlRow + 1, xlStartCol), .Parent.Cells(xlRow + 1, xlCol + 1)).Address(1, 1) & Chr(44) & _ .Parent.Cells(xlRow + 1, xlCol - 1).Address(1, 0) & Chr(41) End With With .Resize(2, 4) .Font.Bold = True .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter .Borders.Weight = xlThin End With End With xlCol = xlCol + 2 g_RS3.MoveNext Loop 

这使我的报告看起来像这样。 我想要做的是使用fillDown属性来自动填充范围[该公式是在2个地方在总，一个在客户端和一个在学生下。 sumifs：客户端从一个单元格到另一个单元格，抓取每个testing标题的客户端数量，与学生相同]（这一行 – 公式是）：+ 6行。 基本上我想要所有7行的公式。 请帮我一下 下面的代码是怎么做的。

Answer 1

在做出你的公式后，坚持这个声明怎么样？

 .Offset(2, 0).Resize(1, 2).AutoFill .offset(2,0).Resize(7,2) 

Answer 2

你也可以这样做

 Range("J4:J10").Formula = "=yourformulahere"