根据记录类型计算总和

Question

这是我的示例excel文件数据

如何分别计算所有CR和DR类型记录的总和？ 结果应该是

总借记= XXX 总积分= XXX

Logic somthing like...

Dim debit;
for each row in sheet1
    if(data of C column == dr)
        debit = debit + data of D column
    end if
end for
print debit; 

我对Excel 2010不太熟悉，所以不确定如何编写代码，所以请给我一些基本步骤来实现这一目标。

Answer 1

你可以使用公式得到这个：

   =SUMIF(C:C,"=DR",D:D)

如果您想使用vba获得此功能，那么您可以将其编写为：

Dim debit, credit As Integer

With Worksheets("Sheet1")

    For x = 1 To .Cells(Rows.Count, 3).End(xlUp).Row

        If UCase(.Cells(x, 3).Value) = "DR" Then
            debit = debit + .Cells(x, 4).Value
        Else
            If UCase(.Cells(x, 3).Value) = "CR" Then
                credit = credit + .Cells(x, 4).Value
            End If
        End If
    Next

End With