2011-05-12 120 views
1

我有一個excel文件。VBA Excel,VLookup多值數

EmployeeName     Expenses 
Ajay          2000 
Vijay          1000 
Ajay          1500 
Vijay          500 

我想統計每位員工的費用數量。我可以用VLOOKUP給定員工的費用中第一次出現這樣的

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

但我怎麼能找到所有費用由指定員工的總和。

+0

你總是可以編寫自定義功能完成任務,或者你必須使用Excel功能? – Konstant 2011-05-12 02:17:27

回答

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 
5

可以使用用Excel中提供的SUMIF函數:

例如

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

它看起來通過範圍在一個:A(柱A)對任何細胞匹配 「的Ajay」,總結其總在B列

enter image description here

+0

謝謝,我現在得到了答案 – AjayR 2011-05-12 03:20:39