求助将工作表函数放入VBA代码中清除后执行代码又能看到公式

Justin-2016

求助把工作表函数放入VBA代码中一起执行.zip (9.8 KB, 下载次数: 5)

2018-6-26 12:41 上传

点击文件名下载附件

liulang0808

1. Sub jiner()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [b2].CurrentRegion
   
4.     For j = 2 To UBound(arr)
   
5.         sm = 0
   
6.         For i = 1 To UBound(arr, 2) - 1
   
7.             sm = sm + arr(j, i)
   
8.         Next i
   
9.         arr(j, i) = sm
   
10.     Next j
    
11.     [b2].CurrentRegion = arr
    
12.     Application.ScreenUpdating = True
    
13. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

Justin-2016

liulang0808 发表于 2018-6-26 13:21
附件内容供参考。。。。。。

谢谢大神的帮助，其实我的本意是想解决如何把我表中的“SUM（……）”公式放入VBA代码中，即使清除了工作中的SUM公式，执行代码后SUM公式又出来了，谢谢！

liulang0808

1. Sub jiner()
   
2.     Application.ScreenUpdating = False
   
3.     For j = 3 To Cells(Rows.Count, 2).End(3).Row
   
4.         Range("e" & j).Formula = "=sum(" & Cells(j, 2).Resize(1, 3).Address & ")"
   
5.     Next
   
6.     Application.ScreenUpdating = True
   
7. End Sub
   

复制代码