如何解决Microsoft Excel运行时错误1004-兼容性问题
所以我创建了一些代码来创建并通过excel中的forumla运行。对于使用Office 365的我来说,它工作正常,但是对于我认为正在使用Excel 2013/16的同事来说,效果却不佳。该错误被抛出在下面的代码中的某处... Microsoft Excel运行时错误1004
请原谅我的伪劣代码。有明显的理由对我而不对我的同事很好吗?
Sub BAU()
Application.StatusBar = "Processing BAU"
Sheets("BAU").Activate
Sheets("BAU").Range("$A$3:$BB$128523").AutoFilter Field:=1,Criteria1:= _
"BAU"
Sheets("BAU").ShowAllData
Range("BAUFulldata2").ClearContents
Dim endyear As Integer
Dim Baseyear As Integer
endyear = Range("endyear")
Baseyear = Range("Baseyear")
'下面的线是哪里破
Range("i4").Formula2R1C1 = _
"=IFERROR(IF(AND(RC3=""Total"",RC4=""Total"",RC5=""Total"",RC6=""Total""),SUMIFS(OFFSET(R[-1]C,-R3C47,),OFFSET(R[-1]C3,""<>Total"",OFFSET(R[-1]C4,OFFSET(R[-1]C5,OFFSET(R[-1]C6,""<>Total""),IF(AND(RC3=""Total"",RC5=""Total""),-R3C42,OFFSET(R[-1]C4" & _
",RC6),-R3C48,RC5),IF(AND(RC6=""Total"",SUMIFS(OFFSET(R[-1]C" & _
",-R3C49,RC3),RC6=""Total"",-R3C50,RC4),IF" & _
"(AND(RC6=""Total"",RC4=""Total""),-R3C51,RC3,IF(AND(RC5=""Total"",-R3C52,OFFSET(" & _
"R[-1]C4,-R3C53,RC4,-R3C41,OFFSET(R[-1" & _
"]C5,RC5,IF(AND(RC4=""Total"",-R3C43,-R3C46,-R3C" & _
"46,IF(RC4=""Total"",-R3C40,IF(RC3=""Total"",-R3C44,OFFSE" & _
"T(R[-1]C5,IF(RC5=""Total"",-R3C45,IF(RC6=""Total"",-R3C54,)" & _
",IF(RC7=""Carbon (tCO2e)"",SUMIFS(OFFSET(Carbon1718,R2C,Activity,Category,Owner,Sector,IF(RC7=""Cost (£)"",SUMIFS(OFFSET(Cost1718,IF(R3C=Baseyear,SUMIFS(OFFSET(CapitalCost,ActivityProject,INDIRECT(RC39),""Y"",CategoryProject,OwnerProject," & _
"RC5,SectorProject,RC6,CapitalSpendYear,R3C))))))))))))))))))),"""")" & _
""
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。