怎么用VBA在excel实现k6+b7-e7=k7，k7＋b8-e8=k8,k8＋b9-e9=k9 以此类推!

xinhuzhuce · 发表于 2020-6-7 09:44

本帖最后由 xinhuzhuce 于 2020-6-7 13:55 编辑

怎么用VBA在excel 实现 k6+b7-e7=k7    k7＋b8-e8=k8
                                    k8＋b9-e9=k9
                                    .......以此类推!

haohu0406 · 发表于 2020-6-7 17:44

Sub js()
Dim i As Integer
For i = 7 To 10 '求到K10
ActiveSheet.Range("K" & i) = ActiveSheet.Range("K" & i - 1) + ActiveSheet.Range("B" & i) - ActiveSheet.Range("E" & i)
Next

复制代码

xinhuzhuce · 发表于 2020-6-7 18:14

haohu0406 发表于 2020-6-7 17:44

谢谢！！非常适用！！

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

怎么用VBA在excel实现k6+b7-e7=k7，k7＋b8-e8=k8,k8＋b9-e9=k9 以此类推!

评分