[已解决]如何用VBA保留公式在工作表中

hvail

如何用VBA保留公式在工作表中

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-14 09:57

1. 
   
2. Sub test()
   
3.     Dim Rng, r, c
   
4. 
   
5.     Range("aa4:aa" & Range("a4").End(xlDown).Row) = 1 '为使Rng.End(xlDown)起作用
   
6.     [aa4].Select
   
7.     Set Rng = [aa4]
   
8.     Do Until Rng.Row = 1048576
   
9.         r = Rng.MergeArea.Row
   
10.         c = Rng.MergeArea.Count
    
11.         If c = 1 Then
    
12.             Range(Rng.Address) = "=sum(" & Cells(r, "z").Address(0, 0) & ")" '不是合并单元格
    
13.         Else
    
14.             Range(Rng.Address) = "=sum(" & Range(Cells(r, "z"), Cells(r + c - 1, "z")).Address(0, 0) & ")" '是合并单元格
    
15.         End If
    
16.         Set Rng = Rng.End(xlDown)
    
17.     Loop
    
18. End Sub
    

复制代码

Book3.rar (19.71 KB, 下载次数: 5)

2013-1-14 09:57 上传

点击文件名下载附件

跳转到最佳答案楼层

E路人

1. Sub 公式保留()
   
2.     Range("AA4") = "=sum(Z4:Z9)"
   
3.     Range("AA10") = "=sum(Z10:Z12)"
   
4.     Range("AA13") = "=Z13"
   
5.     Range("AA14") = "=sum(Z14:Z18)"
   
6. End Sub
   

复制代码

这还没有函数方便

爱疯

为什么不和aa14那样，手动再设3个公式呀

hvail

爱疯 发表于 2013-1-14 09:01
为什么不和aa14那样，手动再设3个公式呀

下面还有N多行呀，这只一点，能用VBA做哪些公式，然后保留呀

爱疯

1. 
   
2. Sub test()
   
3.     Dim Rng, r, c
   
4. 
   
5.     Range("aa4:aa" & Range("a4").End(xlDown).Row) = 1 '为使Rng.End(xlDown)起作用
   
6.     [aa4].Select
   
7.     Set Rng = [aa4]
   
8.     Do Until Rng.Row = 1048576
   
9.         r = Rng.MergeArea.Row
   
10.         c = Rng.MergeArea.Count
    
11.         If c = 1 Then
    
12.             Range(Rng.Address) = "=sum(" & Cells(r, "z").Address(0, 0) & ")" '不是合并单元格
    
13.         Else
    
14.             Range(Rng.Address) = "=sum(" & Range(Cells(r, "z"), Cells(r + c - 1, "z")).Address(0, 0) & ")" '是合并单元格
    
15.         End If
    
16.         Set Rng = Rng.End(xlDown)
    
17.     Loop
    
18. End Sub
    

复制代码

Book3.rar (19.71 KB, 下载次数: 5)

2013-1-14 09:57 上传

点击文件名下载附件

hvail

爱疯 发表于 2013-1-14 09:57

AI和AJ列可以做到保留格式吗?

hvail

爱疯 发表于 2013-1-14 09:57

就是AI列和AJ列不是也有公式嘛，我也想保留下来。同AA列一样保留，但是公式不一样。

hvail

爱疯 发表于 2013-1-14 09:57

超级爱疯,后面的公式能保留吗?

爱疯

Book5.rar (21.63 KB, 下载次数: 4)

2013-1-14 13:17 上传

点击文件名下载附件

这样吗

hvail

爱疯 发表于 2013-1-14 13:17
这样吗

就是要这样,有点慢.不过已经很好了,回复一下我的http://www.excelpx.com/thread-293766-1-1.html,再给你最佳,效果差不多.超级爱疯,超级爱,超级谢.