首页 文章

Excel公式到VBA代码转换

提问于
浏览
0

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

在此先感谢您的帮助!

1 回答

  • 2

    您可以使用

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

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

相关问题