使用macros重置单元格中的公式

我想用一个macros把一个公式放在一个单元格中。 这是我目前的代码。 我得到错误代码1004。

Sub Reset_formula() Worksheets("Dagbok").Range("K6").Formula = "=IFERROR(IF(INDEX(Data!$C$3:$J$4;MATCH(Data!$O$4;Data!$B$3:$B$4;0);MATCH(Dagbok!K5;Data!$C$2:$J$2;0))=0;"""";INDEX(Data!$C$3:$J$4;MATCH(Data!$O$4;Data!$B$3:$B$4;0);MATCH(Dagbok!K5;Data!$C$2:$J$2;0)));"""")" End Sub 

我已经尝试阅读这些页面,但我无法得到它的工作。 来源1 来源2

交换; 作为分隔符,它应该工作得很好。

说明:在VBA中,您需要input所有使用公式US表示法的公式。

 Worksheets("Dagbok").Range("K6").Formula = "=IFERROR(IF(INDEX(Data!$C$3:$J$4,MATCH(Data!$O$4,Data!$B$3:$B$4,0),MATCH(Dagbok!K5,Data!$C$2:$J$2,0))=0,"""",INDEX(Data!$C$3:$J$4,MATCH(Data!$O$4,Data!$B$3:$B$4,0),MATCH(Dagbok!K5,Data!$C$2:$J$2,0))),"""")"