Question

我一直在阅读有关Application.WorksheetFunction.SumIfs语法的内容，但我仍然没有得到它。

我的问题：我正在寻找一个单元格或一些单词的内容＆＃34;示例＆＃34;连成一排。那么我需要的是在匹配该单词的时候将另一行的所有值相加，＆＃34;示例＆＃34;。这是我的代码

Sub sumasi()

Dim wb As Workbook
Dim wsD As Worksheet
Dim Arg1 As Range
Dim Arg2 As Range
Dim Arg3 As Variant

Set wb = ThisWorkbook
Set wsD = wb.Worksheets("Data")

    Set Arg1 = wsD.Range("A1:RH1") 'where to find
    Set Arg2 = wsD.Range("SG3") 'what to find
    Set Arg3 = wsD.Range("AK4:RH4") 'what to sum

    wsD.Range("SG4").Value = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3)


End Sub

我的代码不起作用...请你帮助我吗？谢谢！（我不想在单元格上编写公式，我想直接写入值，因为我因Excel重量而避免使用公式）再次感谢

干杯

VBA- WorkSheetFunction.SumIF - 定义参数

0 个答案: