我是VBA的新手，我需要了解如何复制公式并随日期附加一个日期。
我有一个名为“ Reg ALL-current”的工作表，并且我在此工作表上写了一些公式，它们从单元格AJ到BF。
说AI的日期值为30/04/2019
下一个AJ将01/05/2019和AK保留为02/05/2019，依此类推，直到BF
但是AJ是从这样的公式填充的
=IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT"),[@[30/04/2019]]=""),$AP$1,"") "
和AK将与
=IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT"),[@[30/04/2019]]="",[@[01/05/2019]]=""),$AK$1,"")
其中附加了两个日期。
所以我不得不编写VBA代码以自动填充值
最后添加日期。因此，我创建了一个变量sy Sdaterange并将其分配为
sDateRange = ",[@[" & Range("rStart").Offset(0, 0).Value2 & "]]=" & Chr(34) & Chr(34)
由于引号不起作用，我看到了ascii值并将其添加。
现在，我无法将if添加到字符串中，因此无法继续执行代码。
所以我想实现这一目标，但不能实现
Start = IF(AND(OR($E:$E="END",$E:$E="Preend",$E:$E="HOLDREG",$E:$E="ISHOLD",$E:$E="WAIT")
从AJ到BF
Change(30/04/2019) = ,[@[30/04/2019]]=""
Change(30/04/2019)& Change(31/04/2019)
预期：我希望VBA代码复制公式并将这些日期添加到其中。谁能帮我吗？