[已解决]多条件剔除重复并求和

好运来5599 · 发表于 2017-11-2 09:26

本帖最后由好运来5599 于 2017-11-6 10:04 编辑

详见截图中的描述。

最佳答案

月排行榜 / 总排行榜

grf1973

2017-11-2 10:26

自编函数FreeSum。

Function FreeSum(条件, 求和区域 As Range) '多条件剔除重复并求和
Set d = CreateObject("scripting.dictionary")
Dim xrng As Range
For Each xrng In 求和区域
r = xrng.Row
If Val(Cells(r, 1)) = Val(条件) Then
X = xrng.Offset(, -1) & xrng.Value
If Not d.exists(X) Then
s = s + xrng.Value
d(X) = ""
End If
End If
Next
FreeSum = s
End Function

复制代码

跳转到最佳答案楼层

grf1973 · 发表于 2017-11-2 10:26

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

自编函数FreeSum。

Function FreeSum(条件, 求和区域 As Range) '多条件剔除重复并求和
Set d = CreateObject("scripting.dictionary")
Dim xrng As Range
For Each xrng In 求和区域
r = xrng.Row
If Val(Cells(r, 1)) = Val(条件) Then
X = xrng.Offset(, -1) & xrng.Value
If Not d.exists(X) Then
s = s + xrng.Value
d(X) = ""
End If
End If
Next
FreeSum = s
End Function

复制代码

好运来5599 · 发表于 2017-11-3 08:33

grf1973 发表于 2017-11-2 10:26
自编函数FreeSum。

请问，这个自编函数FreeSum具体怎么用呢？
我按照 Function FreeSum(条件, 求和区域 As Range) 在表单中设成如下公式：
=FreeSum(AS4:AS32,AS33,BF4:BF32)，但结果为 #NAME?

grf1973 · 发表于 2017-11-3 09:19

下面不是我做了个示例吗？条件只要取一个单元格就行了。

grf1973 · 发表于 2017-11-3 09:19

=FreeSum(AS33,BF4:BF32) 就行了吧

好运来5599 · 发表于 2017-11-3 10:44

grf1973 发表于 2017-11-3 09:19
下面不是我做了个示例吗？条件只要取一个单元格就行了。

是，现在看到示例啦。

好运来5599 · 发表于 2017-11-3 10:45

grf1973 发表于 2017-11-3 09:19
=FreeSum(AS33,BF4:BF32) 就行了吧

可以啦！

好运来5599 · 发表于 2017-11-3 12:43

好运来5599 发表于 2017-11-3 10:45
可以啦！

我把代码复制到表单中，在单元格中使用自编函数，可结果不对，什么原因？详见截图。

grf1973 · 发表于 2017-11-6 10:34

自编函数要放在“模块”里才行

好运来5599 · 发表于 2017-11-6 10:54

grf1973 发表于 2017-11-6 10:34
自编函数要放在“模块”里才行

你帮我自编的函数：=FreeSum(AS33,BF4:BF32)在工作表《成本分析》的“成本明细”中，不能根据参数的改变而即时自动变化结果。例：用该函数在BF33对“01”产品进行条件求和后，再到内部核价单BD5中改变税率，改了之后，BF33中值变成了“0”，未随参数的改变而改变计算结果，而是要在BF33中双击才可激活该函数重新计算，后面的BF63、BF93、BF123等所有用到该函数的，都需要一个一个去双击才可激活。

不知能否把该函数设置成自动重算？

		自动登录	找回密码
密码			注册