将A列数据每3个计算结果放在B列

wssf · 发表于 2020-3-10 14:47

各位老师：将A列数据每3个进行各自计算，再将结果处理后放在B列，请教老师代码怎样改动？谢谢！

solextrade · 发表于 2020-3-10 17:16

猜个，B4
=IF(E4,ROUND(SUMPRODUCT(A2:A4,D2:D4)/8,E4),"")

wssf · 发表于 2020-3-10 18:47

谢谢solextrade老师指点，公式在B4下拖非常好。如果放在附件按钮的代码中，不知如何改动，请大师继续指教，谢谢！

1055751654 · 发表于 2020-3-10 18:58

本帖最后由 1055751654 于 2020-3-10 18:59 编辑

wssf 发表于 2020-3-10 18:47
谢谢solextrade老师指点，公式在B4下拖非常好。如果放在附件按钮的代码中，不知如何改动，请大师继续指教 ...

按钮是vba吗？我来

，罗老师的很好啊，干嘛还要还要按钮，按钮也不好的，不点不会更新。嗯不玩

wssf · 发表于 2020-3-10 19:07

好了：
Private Sub CommandButton1_Click()
For J = 4 To Sheets(1).Cells(Rows.Count, 1).End(3).Row Step 3
Range("B4:B" & J) = "=IF(E4,ROUND(SUMPRODUCT(A2:A4,D2:D4)/8,E4),"""")"
Next J
End Sub

wssf · 发表于 2020-3-12 14:21

谢谢1055751654 老师关注，以后有问题再请教！

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

[求助] 将A列数据每3个计算结果放在B列

最新热点 /1