Sumif循环通过数据组vba

如果在其他地方得到答复,请告知。。。

我试图提出一个sumif,它将D列相加,如果a列criteria=“PL211010”&“PL203000”。问题是我需要宏按组求和,而不是整张表(见图)

甚至不知道从哪里开始,我应该使用For Next循环吗?或者循环是必要的?

重要提示 这个轴心每月都会动态变化。账户不是静态的,它们可以增加或减少。因此,放置静态公式将不起作用。。。

下面的代码是我尝试让它工作的代码,只是尝试给出一个基线。

Dim nRowMax, nRowNow As Integer

Application.ScreenUpdating = False

Cells(4, 1).Select
Selection.End(xlDown).Select
nRowMax = Selection.Row

For i = nRowMax To 4 Step -1
If Left(Cells(i, 1), 8) = "PL211010" & "PL203000" Then
        WorksheetFunction.SumIf (Cells(i, 4))
End If
Next i

Application.ScreenUpdating = True