Question

EXCEL中VB编程关于关于获取单元格公式的方法

怎样获取单元格公式?
比如B1单元格的公式为=A1(注意:A和1中都不带$的,也就是说都是相对引用)那么我要使B2单元格等于B1的单元格中的公式该怎么写?
我的目的是要用循环的方法使B2B3……Bn的公式都等于B1，类似于自动填充
一定要用VB编程的方法解决,谢了
不行啊?我执行代码后,填写的还是B1单元格的数值,而不是公式

一楼的没错,我漏看了
二楼的方法也有参考意义
我把代码改了一下,就完全能解决我的问题了:
For i = 2 To 5
Cells(i, 2) = Cells(1, 2).FormulaR1C1
Next i
FormulaR1C1和Formula的区别是填写的是相对公式而后者填写的是绝对公式
这其实是一个自动填充的问题,因为自动填充只能用常量来表示,所以只能换个思路
谢了二位

Answer 1

有两个建议，希望可以帮忙

1.你试试选择性粘贴，粘贴公式
如果不清楚如何将操作转成VB代码，你可以先试着录制一宏，看看宏代码是如何实现的。
2.Cells(i, 2) = Cells(1, 2).Formula
这句代码要改写，Cells(i, 2)默认是Cells(i, 2).value.所以我认为你要填充公式的话，因指明为Cells(i, 2).Formula = Cells(1, 2).Formula

以上建议，没经编码验证。实现时可依上面两个思路调整。

Answer 2

Public Sub aa()
For i = 2 To 100
Cells(i, 2) = Cells(1, 2).Formula
Next i
End Sub

但是,你把B1的公式绝对引用,然后往下拉,不是更快捷??