当前位置：首页 - 正文

EXCEL表VBA代码如何实现简单条件判断,然后自动计算结果,数据问题如图...

发布网友发布时间：2023-12-27 17:33

共2个回答

热心网友时间：2024-03-26 05:44

代码如下，实际上就是用的工作表函数sumif函数。
Sub 计算()
Dim i%, y%
i = Range("C65536").End(xlUp).Row
For y = 2 To i
Range("G" & y) = (Range("D" & y) / (Application.WorksheetFunction.SumIf(Range("C:C"), Range("C" & y), Range("D:D")))) * (Application.WorksheetFunction.SumIf(Range("C:C"), Range("C" & y), Range("E:E")))
Next
End Sub
代码图如下：

这里是加了下划线进行换行来照的，不然看起来不方便。
最后效果如下图：

热心网友时间：2024-03-26 05:45

写是可以写得有实际数据才好测试

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

EXCEL表VBA代码如何实现简单条件判断,然后自动计算结果,数据问题如图...

最新推荐

猜你喜欢

热门推荐