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

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

你的总和范围很好。

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

您的条件范围1很好。

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

您的criteria1需要是一个值，而不是一个范围。

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

显然，如果你需要让你的循环工作，你可以用一个变量替换criteria1中的2。

将excel sumifs公式转换为vba代码

1 个答案: