Excel公式到VBA代码的转换 我试图创建一个宏，允许我扫描数据的列和行，并将公式插入到空白单元格中。我能够使用以下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)

提前感谢您的帮助

您可以使用

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

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

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

---

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

范围。公式1c1

查看

范围。公式1c1