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

了却无痕

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

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

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

taller

了却无痕

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 15:50
大神您好，很感谢您的回帖  可能是我表述的还不够清楚
后期E3：E14、E20：E31会根据其它条件定位求值， ...

大灰狼1976

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

了却无痕

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

大神 这个咋弄哩


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

了却无痕

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

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

维叶

1. With ThisWorkbook.Sheets("主营业务利润表")
   
2.         For x = 3 To 14
   
3.              s = .Cells(x, 1).Value
   
4.               If d1.exists(s) Then
   
5.               .Cells(x, 2) = d1(s)(0)
   
6.                .Cells(x, 3) = d1(s)(1)
   
7.                .Cells(x, 4) = d1(s)(2)
   
8.               End If
   
9.         Next
   
10.         .[b15].Resize(1, 3).FormulaR1C1 = "=SUM(R3C:R[-1]C)"
    
11.    
    
12.         For x = 20 To 31
    
13.               s = .Cells(x, 1).Value
    
14.             If d2.exists(s) Then
    
15.              .Cells(x, 2) = d2(s)(0)
    
16.              .Cells(x, 3) = d2(s)(1)
    
17.             .Cells(x, 4) = d2(s)(2)
    
18.             End If
    
19.          
    
20.             If d3.exists(s) Then
    
21.             .Cells(x, 7) = d3(s)
    
22.             End If
    
23.         Next
    
24.         .[b32].Resize(1, 7).FormulaR1C1 = "=SUM(R20C:R[-1]C)"
    
25. End With
    
26.   MsgBox "ok!"

复制代码