找到多个值

时间:2016-11-16 09:21:07

标签: excel vba

我有第一张表

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

我需要在sheet2中找到客户端代码并在工作表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)

我的问题是查找不能做总和,如何修改它?

非常感谢提前

1 个答案:

答案 0 :(得分:0)

你可以使用这个功能:

items.find({"repo" : "ep-snapshots", "@milestone.keep": {"$ne" : "true"}, "@milestone.complete": "false"}).limit(100)

将被利用如下

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