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

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列得到公式结果。

tanjh

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

Sub add()Dim I

For I = 1 To 9999

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

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

Next I

End Sub红色的改成CELL试试。

znz3000

提示子过程或函数未定义

老鬼

将过程名ADD()改成其他名字试试，或者将Ceil(I, 2).Value = "=" + Ceil(I, 1).Text改成Cell(I, 2).Value = "=" + Cell(I, 1).value

foxxp

试试这个。

Sub add()

Dim I

For I = 1 To 9999

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

   Cells(I, 2).Formula = "=" + Cells(I, 1).Value

Else

  Cells(I, 2).Formula = "=" + """" & """"

End If

Next I

End Sub

[此贴子已经被作者于2004-12-11 14:38:30编辑过]

znz3000

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