自动填充 Application.Countifs.Formula VBA Excel

Question

我认为这可能是一个简单的问题，但我似乎无法找到一种方法来自动填充 Application.WorksheetFunction.SumProduct(wsf.CountIf 公式，以便行号会随着公式的下降而改变。

我想从 A 列自动填充 B2 到 LastRow 的这个公式 Application.WorksheetFunction.SumProduct(wsf.CountIfs(Sheet2.Range(**B2 Here**), Doctors, Sheet2.Range(**B2 Here**), wsf.Transpose(Emergency)))

假设 A 列最后使用的行是 6，所以公式应该从 B2 到 B6 自动填充，例如：

B3 = Application.WorksheetFunction.SumProduct(wsf.CountIfs(Sheet2.Range(**B3 Here**)....

B4 = Application.WorksheetFunction.SumProduct(wsf.CountIfs(Sheet2.Range(**B4 Here**)....

B5 = Application.WorksheetFunction.SumProduct(wsf.CountIfs(Sheet2.Range(**B5 Here**)....

B6 = Application.WorksheetFunction.SumProduct(wsf.CountIfs(Sheet2.Range(**B6 Here**)....

我不想使用 .Formula "=SUMPRODUCT(COUNTIFS....." 方法，以便我可以使用数组，因为标准会根据所选的下拉选项而有所不同。

有什么线索吗？

Answer 1

AutoFill 可以为您做到这一点。假设您的公式以 B2 开头并且结尾行发生更改，则语法为：

LRow = Sheet1.Cells(Rows.Count,1).End(xlUp).Row
With Range("B2")
    .Formula = 'Your formula here.
    .AutoFill Destination:=Range("B2:B" & LRow)
End With

另一种选择是使用FillDown 作为AutoFill 几乎总是有怪癖。语法几乎相同：

LRow = Sheet1.Cells(Rows.Count,1).End(xlUp).Row
Sheet1.Range("B2").Formula = 'Your formula here.
Sheet1.Range("B2:B" & LRow).FillDown

如果这有帮助，请告诉我们。

更新：

很像戴夫的回答，这是我对你的公式的看法：

Sub Test()

    Dim Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets("Sheet1") 'Modify as required.

    With Sh
        LRow = .Cells(Rows.Count, 1).End(xlUp.Row)
        .Range("B2").Formula = "=SUMPRODUCT(COUNTIFS($C$2:$C$16, ""Doctors"", $I$2:$I$16, $B2))"
        .Range("B2:B" & LRow).FillDown
    End With

End Sub

然而，关键是：如果你只是在做一个COUNTIFS 检查Column C 是否有Doctors 作为值并且Column I 有B2 的值，你应该从您的公式中删除SUMPRODUCT，因为它不是必需的。 SUMPRODUCT 曾经是检查多个条件的方法，但在 Excel 2007 及更高版本中，它已完全被 COUNTIFS 取代，用于简单的基于多个条件的检查和计数。我的意思是，正确的代码几乎如下：

Sub Test()

    Dim Sh As Worksheet
    Set Sh = ThisWorkbook.Sheets("Sheet1") 'Modify as required.

    With Sh
        LRow = .Cells(Rows.Count, 1).End(xlUp.Row)
        .Range("B2").Formula = "=COUNTIFS($C$2:$C$16, ""Doctors"", $I$2:$I$16, $B2)"
        .Range("B2:B" & LRow).FillDown
    End With

End Sub

STILL，进一步的公式取证和评估揭示了一个更棘手的部分：您在B2 及以下输入公式，但您的COUNTIFS 正在检查B2 及以下作为条件也是。这不仅令人困惑，而且容易出错（如果还没有出错的话），因为它会导致循环引用。

此时，我的问题是，您到底要检查和/或计算什么？在我看来，这不仅仅是一个 VBA 问题，因为我相信您对获取数字的内容和方式感到困惑。虽然我们的方法是合理的，并且对于您的问题基本上是完美的，但如果公式不正确，上述内容将毫无用处。 :)

Answer 2

试试这个。

这是我的数据的布局方式：

此代码进入常规模块：

Sub Test(s As String) 'input frpm combo box
    Dim Sh As Worksheet, LRow As Long
    Set Sh = ThisWorkbook.Sheets("Sheet1") 'Modify as required.
    If LCase(s) = "all" Then s = "*"
    s = Chr(34) & s & Chr(34) 'bracket with quotes
    With Sh
        LRow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range("B2").Formula = "=COUNTIFS($C$2:$C$16," & s & ", $I$2:$I$16, $A2)"
        .Range("B2:B" & LRow).FillDown
    End With
End Sub

此代码进入组合框的工作表模块（本例中为 Sheet1）。

Private Sub ComboBox1_Change()
    Test Me.ComboBox1.Value
End Sub

我不确定您的公式结果，但它已正确加载。