VBA Excel,VLookup为多个值计数

我有一个Excel文件。

EmployeeName Expenses Ajay 2000 Vijay 1000 Ajay 1500 Vijay 500 

我想统计每个员工的开支数量。 我可以像这样用Vlookup得到给定员工的费用的第一次出现

 sExpense = XLApplication.VLookup("Ajay", Range("A1:B99"), 2, False) 

但是,我怎样才能find给定员工的所有费用的总和。

 Option Explicit Public Sub test() Dim sExpense As String Dim range1 As Range Dim sumRange As Range Set range1 = Range("A2:A5") Set sumRange = Range("b2:b5") sExpense = Me.Application.WorksheetFunction.SumIf(range1, "Ajay", sumRange) End Sub 

你可以使用excel提供的SUMIF函数:

例如

 C6=SUMIF(A:A,"Vijay",B:B) 

它通过A:A(A列)中的范围来查看任何单元格匹配“Ajay”,并在B列中总计它们的总和

在这里输入图像说明