find多个值

我有第一张纸

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 

我需要在工作表2中find客户端代码，并在工作表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：

 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)