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

Вы можете использовать функцию SUMIF, предоставляемую Excel:

Например

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