如何在Excel VBA中通过更改每行的条件和求和范围来编写sumif

Question

我是VBA的新手，我试图在D列的每一行中编写一个sumif函数，但将更改条件和每一行的列总和范围，直到criteria列的最后一个值。

例如：从第4行开始，第一个总和与标准范围将是4：4，第二个将是4：5，第三个是4：6，依此类推。

我希望答案看起来像下面的示例，但对于A列中带有“ x”的行，它仅显示8。

剂量任何人都有任何想法使其在下面的示例中显示为D列。

工作表：

column A B C D E
4      x   1 1
5      x   2 3
6      y   1  
7      y   3 
8      z   4 
9      x   5 8

码：

llistrow = ThisWorkbook.Worksheets(Source).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row - 1
For i = 4 To llistrow Step 1
    revisedbudget1314 = Application.WorksheetFunction.SumIf( _
        Arg1:=ThisWorkbook.Worksheets(Source).Range(Cells(4, 1), Cells(i, 1)), _
        Arg2:="x", _
        Arg3:=ThisWorkbook.Worksheets(Source).Range(Cells(4, 3), Cells(i, 3)))
Next i 

Answer 1

在单元格D1输入此公式

=IF(A1="x", SUMIF(A$1:A1, "=x", C$1:C1), "")

并将其乘以D列的其他单元格（选择D1并双击右下角的小矩形）

请为您的问题使用更好的标签（例如excel或spreadsheet ），以便更多的人可以查看它们。