定义函数为SUM指定列不为空的其他列合计

qw52633 · 发表于 2017-6-14 14:34

定义一个新函数，IF(A5=""IF(B5="","",E5*D5*C5*B5),新函数)这样新函数是sum不为空的两数之间

LSL1128xgw · 发表于 2017-6-14 15:06

=IF(B2="",SUM(INDEX(F:F,MATCH(1,0/(A$1:A1>0))+1):F1),E2*D2*C2*B2) 三键数组公式 f2单元格输入

qw52633 · 发表于 2017-6-14 16:30

置顶，还有其他的方法么？

qw52633 · 发表于 2017-6-14 16:31

LSL1128xgw 发表于 2017-6-14 15:06
=IF(B2="",SUM(INDEX(F:F,MATCH(1,0/(A$1:A1>0))+1):F1),E2*D2*C2*B2) 三键数组公式 f2单元格输入

嗯多谢大神

铮铮try · 发表于 2017-6-14 16:59

复制代码

qw52633 · 发表于 2017-6-19 09:58

置顶，最好指定一个函数这样的，多谢大神们，请问还有别的方法么

秋枫 · 发表于 2017-6-19 10:07

我觉得你这个表格设计得不好。应该充分利用Excel现有的工具。我猜也许你不知道 excel有分类汇总功能。

qw52633 · 发表于 2017-6-19 10:38

秋枫发表于 2017-6-19 10:07
我觉得你这个表格设计得不好。应该充分利用Excel现有的工具。我猜也许你不知道 excel有分类汇总功能。

...

还是多谢大神，不过我这个表只是我截取的一点，其他的还有数据，现在我就希望下拉就可以自动识别这种，不能归类

qw52633 · 发表于 2017-6-19 10:49

希望更多人看到，挺着急的大神们

秋枫 · 发表于 2017-6-19 13:42

自定义一个函数：
F2 =ProductAndSum(B2:E2)
下拉

Function ProductAndSum(r As Range)
Dim i, j, k
If r.Cells(1, 1).Value <> "" Then
ProductAndSum = WorksheetFunction.Product(r)
Else
i = r.Row
j = r.Column
i = i - 1
Do While i > 0 And Cells(i, j) <> ""
i = i - 1
Loop
k = r.Row - i - 1
ProductAndSum = WorksheetFunction.Sum(Application.ThisCell.Offset(-k, 0).Resize(k, 1))
End If
End Function

复制代码

求助.7z (17.95 KB, 下载次数: 1)

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

[求助] 定义函数为SUM指定列不为空的其他列合计