[已解决]VBA自动填充公式的补充问题

cfyhqy

好帅老师，我在http://www.excelpx.com/thread-191837-1-1.html这里看到你回复的”VBA自动填充公式“问题，觉得很有用，只是能不能实现在I列不填充公式，而是直接填充公式的计算结果，而且当I列公式所包括的列的数据被清除后，I列的数据也随着清除？

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2011-8-16 17:34

回复 cfyhqy 的帖子

1. Sub HJS()
   
2. Dim r&, x&
   
3. With Sheets("sheet1")
   
4. r = .Range("A65536").End(xlUp).Row
   
5. For x = 3 To r
   
6. .Cells(x, 8) = Application.Sum(Range(.Cells(x, 3), .Cells(x, 7)))
   
7. Next x
   
8. End With
   
9. End Sub

复制代码

vba实现自动填充公式.rar (10.34 KB, 下载次数: 213)

2011-8-16 17:34 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

回复 cfyhqy 的帖子

当然可以，提供数据附件。

fjmxwrs

回复 cfyhqy 的帖子

1. Sub HJS()
   
2. Dim r&, x&
   
3. With Sheets("sheet1")
   
4. r = .Range("A65536").End(xlUp).Row
   
5. For x = 3 To r
   
6. .Cells(x, 8) = Application.Sum(Range(.Cells(x, 3), .Cells(x, 7)))
   
7. Next x
   
8. End With
   
9. End Sub

复制代码

vba实现自动填充公式.rar (10.34 KB, 下载次数: 213)

2011-8-16 17:34 上传

点击文件名下载附件

cfyhqy

特别感谢3楼的老师，不知道能不能求不相邻的两列的和、差、积、商，还请老师多多指教！

glhfgtd

跟老师们学习

gakk117

向老师学习  学以致用