VBA Excel，VLookup用于多值计数

我有一个excel文件

 EmployeeName                   Expenses
 Ajay                                      2000
 Vijay                                     1000
 Ajay                                      1500
 Vijay                                     500

我想计算每个员工的费用。我可以用这样的Vlookup得到给定员工的第一次支出

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

---

但是我如何才能找到给定员工的所有费用总和。

您可以使用excel提供的SUMIF函数：

比如说

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

它在A:A（A列）的范围内查找任何与“Ajay”匹配的单元格，并在B列中求和它们的总数

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列中求和它们的总数

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函数？您可以随时编写自定义函数来完成任务，或者必须使用excel函数？