请大神帮忙看看这代码

bkzy333

    1.源代码中
i = WorksheetFunction.SumProduct(Range("J4", Range("j4").End(xlDown)), Range("E4"), Range("e4").End(xlDown))
    '求出j列和e列乘积和并附值给常量i-------完成路径总的住院天数
    Cells(Rows.Count, "j").End(xlUp).Offset(1, 0) = i / Cells(Rows.Count, "e").End(xlUp)
    '在J列最后一个非空单元格的下一个得出常量i与E列总和比值------求出路径组平均住院天数
我想用函数公式算出J列有效数据和E列有效数据的乘机和，再附值给常量i，然后用常量i除以e列有效数据的和，但是结果是错误。

2.表格中大多数都是求和、平均等运算，但是总的行数不确定。我想把最终每一列的运算结果汇总到一个文本中，但是这些结果也是变量，我该如何用vba代码表示？


在此谢过所有VBA大神。

chjn2468

这个为什么要用VBA啊，直接用透视表就好了

bkzy333

朱荣兴 发表于 2019-6-20 09:46
取得有效行的行号，这样即可呀，其他问题，你应该能够搞定的吧
ws = Cells(Rows.Count, 2).End(xlUp).Row+ ...

我想用函数公式算出J列有效数据和E列有效数据的乘机和，然后再除以e列。但是不知道为什么代码报错

bkzy333

朱荣兴 发表于 2019-6-20 09:46
取得有效行的行号，这样即可呀，其他问题，你应该能够搞定的吧
ws = Cells(Rows.Count, 2).End(xlUp).Row+ ...

我是用这个
i = WorksheetFunction.SumProduct(Range("J4", Range("j4").End(xlDown)), Range("E4"), Range("e4").End(xlDown))
其中Range("E4"), Range("e4").End(xlDown))的代码就是表示从e4开始到e列结束

想把计算结果附值给i，然后用i 运算。

bkzy333

chjn2468 发表于 2019-6-20 06:07
这个为什么要用VBA啊，直接用透视表就好了

谢谢大哥的意见，但是数据透视表中没办法运用sumproduct 函数，而且每个月这种表格几十个，行列不确定，用数据透视效率有点低。