如何让excel VBA正确评估连接字符串作为公式？

Question

我正在尝试通过将公式与用户输入连接来为一系列单元格分配公式。但是，VBA会在不应该有的地方添加括号。

这是我代码的一部分。

Dim EDat As Sting
  EDat = InputBox("Which colmun is the data located (A, B, C,...)?")

Dim E As String
  E = EDat & ":" & EDat

MsgBox ("=SUMIFS(AD_Energy_Report!" & E & " , AD_Energy_Report!A:A, [@Month],AD_Energy_Report!B:B, ""Usage"")")

以上代码打印出来 correct formula

执行下面其余代码后，所选单元格中的实际公式包括不需要的括号。

Range("D2:D13").Select
ActiveCell.FormulaR1C1 = "=SUMIFS(AD_Energy_Report!" & E & " , AD_Energy_Report!A:A, [@Month],AD_Energy_Report!B:B, ""Usage"")"

公式出来了 而是Incorrect formula。

我尝试直接将该公式与EDat连接而没有E，但仍然得到相同的结果。

如何摆脱这些括号？任何帮助将不胜感激。感谢。