Excel 公式到 VBA 代码转换答案

【问题标题】：Excel Formula to VBA code ConversionExcel 公式到 VBA 代码转换
【发布时间】：2016-08-24 19:39:29
【问题描述】：

我正在尝试创建一个宏，允许我扫描数据的列和行并将公式插入空白单元格。我可以使用以下 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)

提前感谢您的帮助！

【问题讨论】：

标签： vba excel

【解决方案1】：

你可以使用

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

Excel 将负责更新单元格引用，就像复制/粘贴时一样

【讨论】：