excel - 在 A 列中查找测试 1-测试 4 后如何对 B 列中的值求和

Question

我想知道是否有人愿意与我分享在 A 列中查找特定名称后如何对 B 列进行求和？举例来说，我想将 test1 与 test4 相加。然后总数将被放入“B1”中，其中“In”位于其旁边，顺便说一下，“In”不一定位于“B1”中。我添加了一张图片来缓解困惑。

我尝试过一些编码:

Sub Macro1()
Dim lcell As Range, lrow As Long, rowToSum As Long
  lrow = 1    
Do 
  set lcell = Sheets("Sheet1").cells(lrow,1)
  If lcell = "Test1" or "Test2" Or "Test3" Or "Test4" Then
  'I'm not sure how to i sum different columns, my guess was to do a rowToSum = lcell
lrow = lrow + 1
Exit Do
End If
Loop
End Sub

如果您能解决我的问题，我将不胜感激!非常感谢!

Answer 1

最简单的方法是 B1 中的公式
=SUM(COUNTIF(A:A, {"Test1","Test2","Test3","Test4"}))

可以通过 VBA 完成

Sub Test()
Sheets(1).[b1] = Evaluate("SUM(COUNTIF(A:A, {""Test1"",""Test2"",""Test3"",""Test4""}))")
End Sub

更新了明确的意图

Sub Test()
Sheets(1).[b1].Value = Evaluate("SUM(SUMIF(A2:A10, {""Test1"",""Test2"",""Test3"",""Test4""},B2:B10))")
End Sub