Question

VBA 多条件求和

一列时间，一列数量，一列名称，在A,B,C三列，是一个动态区域，现在求满足时间与名称的数量和，用VBA编的程序必须是动态区域。

Answer 1

Sub test()
Dim oDic As Object
Dim i As Long
Dim Dsum
Dim Arr
Arr = Range("A1:C" & [A65536].End(xlUp).Row)
Set oDic = CreateObject("Scripting.Dictionary")
With oDic
For i = 1 To UBound(Arr)
oDic(Format(Arr(i, 1), "yy-m-d") & "@@" & Arr(i, 2)) = oDic(Format(Arr(i, 1), "yy-m-d") & "@@" & Arr(i, 2)) + Arr(i, 3)
Next
End With
Dsum = oDic(Format("2010-8-5", "yy-m-d") & "@@" & "A") '"2010-8-5"这个是你求和的日期，"A"是名称根据需要自己设置
End Sub

Answer 2

目测你所需要的功能，暂时还不需要vba（如确实需要请注明）
函数
sumifs（）
如果是大量数据需要做统计分析的话，可以试试透视表
选中表格1数据区，插入透视表，
行选中A
列选择B
值选择C，试试
------------------------
如果非要vba，还是借助excel内置函数即可，vba调用内置函数
Application.WorksheetFunction.sumifs()