将公式写入某列单元格，怎样让每个该列位置的单元格都有公式？

boy1dl

将公式写入某列单元格，怎样让每个该列位置的单元格都有公式？要自动生成，不是手工拖拽和复制的方式。请问有几种方法？谢谢

pureshadow

我只会最弱智的代码：

Private Sub Worksheet_Change(ByVal Target As Range)
range() = application.公式
End Sub

boy1dl

代码怎么写啊

pureshadow

可以用代码
呃……好像也只能用代码[:30]

[ 本帖最后由 pureshadow 于 2008-11-28 01:20 编辑 ]