VBA 公式过滤 EXCEL 报告答案

【问题标题】：VBA formulas fildown EXCEL reportVBA 公式过滤 EXCEL 报告
【发布时间】：2016-02-25 14:47:38
【问题描述】：

我正在处理一份 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 属性来自动填充范围[公式在 TOTAL 下的 2 个位置，一个在客户下，一个在学生下。 sumifs：客户端从一个单元格到另一个单元格，并获取每个 TEST 标题的客户端数量，与学生相同]（这一行 - 公式所在的位置）：向下 + 6 行。基本上我想在所有 7 行中都有公式。请帮帮我。如下图所示，此代码的作用。

【问题讨论】：

所以您使用的是上一个问题中的@Jeeped 答案，但没有将他的答案标记为正确？
我刚刚将其标记为已完成。我是这个网站的新手，不完全确定everythign 是如何工作的。谢谢
你有没有记录下自己这样做？
不，我实际上在这个网站上得到了一些帮助。
在你制定公式后坚持（类似）这个声明怎么样.Offset(2, 0).Resize(1, 2).AutoFill .offset(2,0).Resize(7,2)

标签： vba excel

【解决方案1】：

在你制定公式后坚持这个声明怎么样

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

【讨论】：

【解决方案2】：

你也可以这样做

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

【讨论】：