代码运行后其他单元格的求和公式被清除

了却无痕 · 发表于 2024-1-9 11:12

很感谢大神shiruiqiang给予的帮助，提供一个很棒的代码。

目前我在运行的时候发现代码每一次运行都会覆盖我红框的公式，每次运行后都要写公式。

想请教论坛的大神能不能再原有基础上修改代码，把它修改成可以保留公式的状态捏？

taller · 发表于 2024-1-9 11:37

了却无痕 · 发表于 2024-1-9 15:50

taller 发表于 2024-1-9 11:37

大神您好，很感谢您的回帖可能是我表述的还不够清楚
后期E3：E14、E20：E31会根据其它条件定位求值，
而f3：f14、f20：f31会根据SUM（B:E）求和【F3=SUM（B3:E3】
H20：H31则根据f+g进行求和
按您的代码调整运行后，f列求和是E的结果
H列的求和是F列的结果
请您再帮我看看

了却无痕 · 发表于 2024-1-9 22:11

默默地顶一波自己的帖子

了却无痕 · 发表于 2024-1-11 09:06

每天瞅一瞅我滴大神在哪里啊

半百 · 发表于 2024-1-11 13:21

了却无痕发表于 2024-1-9 15:50
大神您好，很感谢您的回帖可能是我表述的还不够清楚
后期E3：E14、E20：E31会根据其它条件定位求值， ...

大灰狼1976 · 发表于 2024-1-11 19:36

arr1 = Sheets("主营业务利润表").[a1].CurrentRegion.Formula

了却无痕 · 发表于 2024-1-12 10:18

半百发表于 2024-1-11 13:21

大神这个咋弄哩

前面收入表按你的改已经可以了但是吧这支出的喔整不明白可以再帮我看看吗？

了却无痕 · 发表于 2024-1-12 10:25

大灰狼1976 发表于 2024-1-11 19:36
arr1 = Sheets("主营业务利润表").[a1].CurrentRegion.Formula

大神接下来怎么改哩无效引用？

维叶 · 发表于 2024-1-12 15:14

With ThisWorkbook.Sheets("主营业务利润表")
For x = 3 To 14
s = .Cells(x, 1).Value
If d1.exists(s) Then
.Cells(x, 2) = d1(s)(0)
.Cells(x, 3) = d1(s)(1)
.Cells(x, 4) = d1(s)(2)
End If
Next
.[b15].Resize(1, 3).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
For x = 20 To 31
s = .Cells(x, 1).Value
If d2.exists(s) Then
.Cells(x, 2) = d2(s)(0)
.Cells(x, 3) = d2(s)(1)
.Cells(x, 4) = d2(s)(2)
End If
If d3.exists(s) Then
.Cells(x, 7) = d3(s)
End If
Next
.[b32].Resize(1, 7).FormulaR1C1 = "=SUM(R20C:R[-1]C)"
End With
MsgBox "ok!"

复制代码

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

[求助] 代码运行后 其他单元格的求和公式被清除

[求助] 代码运行后其他单元格的求和公式被清除