VBA Excel，VLookup用于多个值计数

Question

我有一个Excel文件。

 EmployeeName                   Expenses
 Ajay                                      2000
 Vijay                                     1000
 Ajay                                      1500
 Vijay                                     500

我想计算每位员工的开支数。 我可以像这样用Vlookup获取给定员工的第一次费用

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

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

Answer 1

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

例如

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

它通过A：A（列A）中的任何单元格匹配“ Ajay”的范围进行查找，并在B列中求和

Answer 2

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