vba - 将excel sumifs公式转换为vba代码

Question

我正在尝试在 VBA 中进行 SUMIFS 计算。当我在电子表格中输入它时，它工作正常，但当我尝试将其转换为 VBA 时，它似乎不起作用。

Sheets("Master").Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row).Formula = _
    "=SUMIFS(Input!C32,Input!C37,Master!C1,Input!C31,Master!R1C)"

这是代码片段(最初在评论中):

Dim LastRow As Long 
Dim rw As Long 
LastRow = Range("A" & Rows.Count).End(xlUp).Row 
For rw = 2 To LastRow 
  Sheets("Master").Cells(rw, 2).Value = Application.WorksheetFunction.SumIfs(Sheets("Input").Range("AF:AF"), Sheets("Input").Range("AK:AK"), Sheets("Master").Range("A:A"), Sheets("Input").Range("AE:AE").Sheets("Master").Range("B2"))  
Next 

Answer 1

您没有指定要在条件1中查找的值。您必须指定一个值，而不是范围。

你的总和范围没问题。

Sheets("Input").Range("AF:AF")

您的标准 range1 没问题。

Sheets("Input").Range("AK:AK")

您的条件1必须是一个值，而不是一个范围。

使用此Sheets("Master").Range("A2").value而不是 Sheets("Master").Range("A:A")

显然，如果您需要让循环正常工作，您可以将 criteria1 中的 2 替换为变量。