Excel公式到VBA代码转换

Question

我正在尝试创建一个允许我扫描数据列和行并将公式插入空白单元格的宏。我可以使用以下excel公式完成此任务：

=IF(ISBLANK(W4),((IFERROR(DATEDIF(MAX($P4,DATE(2016,5,1)),MIN($Q4,DATE(2016,8,1)),"d"),0)/(DATEDIF(P4,Q4,"d")))*$T4),W4)

我的问题是，有没有办法可以将其放入vba代码中，以便我可以运行一个宏来自动将此公式应用于我的excel表格的30行中？因此，下一行将为：

=IF(ISBLANK(W5),((IFERROR(DATEDIF(MAX($P5,DATE(2016,5,1)),MIN($Q5,DATE(2016,8,1)),"d"),0)/(DATEDIF(P5,Q5,"d")))*$T5),W5)

提前感谢您的帮助！

Answer 1

您可以使用

Range("RangeToCopyFormulaTo").Formula = Range("CellToCopyFormulaFrom").Formula

Excel将负责更新单元格引用，与复制/粘贴时相同