查找多個值

Question

我有一個第一片

client ca 
11112 3 
11133 445 
33333 6 
333 666 

和第二片

client Amount 
11112 12 
11133 22222 
33333 456 
333 234 
11112 44 
11112 78666 
11133 6649 
11133 43438 

我需要找到客戶機代碼在Sheet 2中和在表添加總和（金額）1

我試過的東西

nomClient = Range("B" & i).Value 
Set cel = Cells.Find(What:=nomClient, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 

我的問題是找不到一個總和，如何修改它？

提前感謝

Answer 1

，你可以使用此功能：

Function GetSum(nomClient As String) 
    With Worksheets("secondSheetName") '<--| change "secondSheetName" to your actual second sheet name 
     GetSum = WorksheetFunction.SumIf(.Columns(1), nomClient, .Columns(2)) '<--| change (1) and (2) to your actual correspondent "client" and "Amount" columns index in your second sheet 
    End With 
End Function 

如下

nomClient = Worksheets("firstSheetName").Range("B" & i).Value ''<--| change "firstSheetName" to your actual first sheet name 

MsgBox GetSum(nomClient)