Vbs Excel公式将目标公式复制到当前单元格

我正在使用一个ETL在Excel中自动地附加一些行，但不幸的是没有办法从前面的行中获取样式和公式。

所以我决定用下面的硬编码公式/值插入新行：

=CopyFormula(INDIRECT(ADDRESS(ROW()-1;COLUMN()))) 

然后deviseCopyFormula作为一个UDF，只需从传递的目标单元格复制公式

为什么不是这样的工作？

 Public Function CopyFormula(rng As Range) rng.Copy Destination:=ActiveCell 'ActiveCell.Formula = rng.Formula 'return no value End Function 

我也尝试复制和评估邻居公式，但不幸的是，当公式中存在INDIRECT时，evaluate（）不起作用http://support.microsoft.com/kb/131384

任何build议？

Answer 1

使用一个小组而不是一个UDF

工作表单元格中的UDF只能返回值，不能修改其他单元格。