VBAinput公式不按预期工作

我从来没有使用VBAmacrosinput公式。 有没有人有任何想法，为什么这是行不通的？ 我的印象是双引号应该解决我最初的问题，只显示到第二个引用 – 但它返回一个错误。

Sub Macro() Worksheets("Summary").Range("H3").Formula "=EXACT(G3, COUNTIFS((INDIRECT(CONCATENATE("" '"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""K:K""))), D3, (INDIRECT(CONCATENATE(""'"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""g:g""))), E3, (INDIRECT(CONCATENATE(""'"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""j:j""))), F3))" End Sub 

Answer 1

您将需要修改公式以在公式开始之前添加“=”。

 Worksheets("Summary").Range("H3").Formula = "=EXACT(G3, COUNTIFS((INDIRECT(CONCATENATE("" '"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""K:K""))), D3, (INDIRECT(CONCATENATE(""'"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""g:g""))), E3, (INDIRECT(CONCATENATE(""'"", RIGHT(B3, LEN(B3) - FIND(""- "", B3) - 1), ""'!"", ""j:j""))), F3))"