VBA替代函数SUMIFS

ljc6

因需多次运算，想请教神，怎么用VBA 替代SUMIFS

不知道为什么

把函数解释明白，不就是代码过程了？

ljc6

不知道为什么 发表于 2018-8-12 16:41
把函数解释明白，不就是代码过程了？

就是 所有 J 列中叫做“炒酸枣仁”对应的G列的数值相加汇总到K列中 “炒酸枣仁”对应的行中

ljc6

不知道为什么 发表于 2018-8-12 16:41
把函数解释明白，不就是代码过程了？

Sub mysumifs()
Dim i%, d As Object, arr

Set d = CreateObject("scripting.dictionary")
arr = Sheet1.UsedRange
For i = 5 To UBound(arr)
d(arr(i, 10)) = arr(i, 7)
Next
If d.exists(arr(i, 10)) Then Cells(i, 13) = arr(i, 7).Sum
End Sub


自己初学VBA，写了这个，但是这是错的，请高手指点，谢谢

不知道为什么

ljc6 发表于 2018-8-12 16:49
就是 所有 J 列中叫做“炒酸枣仁”对应的G列的数值相加汇总到K列中 “炒酸枣仁”对应的行中

参考