请教:在excel2003表中为减少数据占用空间和提高运行速度，在出现新纪录时将上一行(一

符合

请教:在excel2003表中为减少数据占用空间和提高运行速度，在出现新纪录时将上一行(一行内各单元格格式和公式都不相同）复制到下一行，再将上一行本身复制粘贴成数值格式，直到新纪录结束为止，保留最后一行含有公式。我用了do while -loop及其他语句编的宏命令都不行。
      
Sub 公式复制转数值存储()
    Dim i As Single
    i = 760
    Do While Range("A" & i).Value <> ""
    Rows("i:i").Select
    Selection.AutoFill Destination:=Rows("i:(i+1)"), Type:=xlFillDefault
    Rows("i:(i+1)").Select
     Rows("i:i").Select
    Selection.Copy
     Rows("i:i").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("i:(i+1)").Select
    Loop
End Sub
      哪位高手帮忙改一下！

那点都不会

进来学习学习新鲜的东西

符合

这么长时间，也没人帮忙改一下。

符合

哪位高手帮忙改一下，谢谢了！

hehex

符合 发表于 2013-3-13 12:58
哪位高手帮忙改一下，谢谢了！

上个应用的附件吧。