find包含子string的所有单元格并添加它们

我想添加所有包含单词“WAGES”的单元格。如果G列中的单元格包含单词“WAGES”，则会显示数量（列j）。 如果有2个或更多个包含“WAGES”的单元格，则将分别添加它们的数量。 这是我的代码：

Dim i As Integer Dim x As String, name As String Dim a As Double, b As Double x = "WAGES" i = 3 Do Until Sheets("SHIPNET").Cells(i, 7) = "" name = Sheets("SHIPNET").Cells(i, 7) If InStr(1, name, x, 1) Then a = Sheets("SHIPNET").Cells(i, 10).Value i = i + 1 End If If InStr(1, name, x, 1) Then b = Sheets("SHIPNET").Cells(i, 10).Value i = i + 1 End If i = i + 1 Loop Sheets("MACRO TEMPLATE").Cells(5, 3) = a + b 

我的代码仅限于包含“WAGES”的2个单元格。 无论如何，使它dynamic而不是只发现2个单元？

在图片的情况下，将增加-28,622.20和-50,372.64。

Answer 1

为什么不使用带有通配符的SUMIF ？
一行代码来取代整个事情。

 Sheets("MACRO TEMPLATE").Cells(5, 3) = worksheetfunction.SumIf(Sheets("SHIPNET").Range("G:G"),"*WAGES*",Sheets("SHIPNET").Range("J:J"))