请教如何实现自动填充公式

linzi206 · 发表于 2011-9-18 21:43

假如A4=A1+A2 不通过鼠标拉填充怎么样实现B4=B1+B2 C4=C1+C2 .只要我更改A4单元格的公式，后面公式自动更改

doryan · 发表于 2011-9-18 21:58

AUTOFILL 方法
可以帮你实现自动填充或者用FORMULAR1C1的形式来直接给区域设置公式

doryan · 发表于 2011-9-18 22:10

Sub 填充()
X = Cells(1, 1000).End(xlToLeft).Column '1000为最大列数根据版本不同设置不同 2003版本为256，1为有数据的行数
Range("a4").AutoFill Destination:=Range(Cells(4, 1), Cells(4, X)), Type:=xlFillDefault
End Sub

此为AUTOFILL的方法

doryan · 发表于 2011-9-18 22:12

Sub 填充()
X = Cells(1, 1000).End(xlToLeft).Column '1000为最大列数根据版本不同设置不同 2003版本为256，1为有数据的行数
Range(Cells(4, 1), Cells(4, X)).FormulaR1C1 = "=R[-3]C+R[-2]C"
End Sub

此为FORMULAR1CI的方法

doryan · 发表于 2011-9-18 22:13

本帖最后由 doryan 于 2011-9-18 22:14 编辑

以上两种方法都需要你设置好A4的公式后执行一遍代码
或者是用worksheet_selectionchange 来驱动代码

spano · 发表于 2011-10-16 17:05

这个本质上是将拉A4公式框的内容改成了代码形式而已吧，不管怎么样都是要运行一次，跟手拉意义上是一样的哦

福哥 · 发表于 2011-10-8 18:51

学习了！{:soso_e181:}多谢

water8680wzy · 发表于 2011-10-10 15:02

学习了！多谢

maxpayne912 · 发表于 2011-10-20 22:53

这个代码貌似和手拉没有多大区别，可能对于平凡切换单元格公式有一定实际意义

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