高手帮忙改一下宏的编程，只有几句。我不懂，老是出错。帮帮忙

znz3000

Sub add()

Dim I

For I = 1 To 9999

If Ceil(I, 1) <> " " Then

Ceil(I, 2).Value = "=" + Ceil(I, 1).Text

End If

Next I

End Sub

我想实现在I列输入公式，在J列得到公式结果。

znz3000

提示子过程或函数未定义

znz3000

太感激了，真不知道如何谢你，帮了大忙了