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

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编辑过]