插入公式参考活动单元格行

我试图插入一个公式到一个单元格，并尝试使用ActiveCell.Rowdynamic单元格引用。

Range("Q" & ActiveCell.Row).Formula = "=IF(Range(""P"" & ActiveCell.Row).Address ="""",""DD/MM/YYY"",CONCATENATE(NETWORKDAYS(O21,P21),"" Working Days""))" 

但是我得到一个应用程序定义的错误。

请有人告诉我我要去哪里错了？ 谢谢

Answer 1

 Range("Q" & ActiveCell.Row).Formula = "=IF(" & Range("P" & ActiveCell.Row).Address & " ="""",""DD/MM/YYY"",CONCATENATE(NETWORKDAYS(O21,P21),"" Working Days""))" 

你必须注释掉string中的VBA代码。