使用Excel VBA中的变量在特定单元格中输入公式

Question

在隐藏整个列之前，我试图编写代码以将公式输入到特定的单元格中，但是我在公式本身的语法方面遇到了麻烦。

到目前为止，我已经将变量i定义为字符串，并且定义正确。 i的文本值为jan，feb，mar等。

以下是我当前拥有的代码：

Dim i as string

For Each cell In range("B4:M4")
    If cell.Value = "No Data" Then
        cell.Select
        i = Selection.Offset(-1, 0).Value
        Selection.Formula = "=+" & i & "18'!E66"
        Selection.EntireColumn.Hidden = True
    End If
Next cell

任何帮助将不胜感激！谢谢！