求优化代码

fghji

速度很慢并加句代码

Sub test1()

    Application.ScreenUpdating = False
    With Sheets("sheet1")
    Range("E10").FormulaR1C1 = _
        "=TEXT(SUMPRODUCT(RIGHT(MMULT({1,1,1,1,1,1,1,1,1,1},MID(R[-9]C[-1]:RC[-1],{1,2,3},1)*{1;1;1;-1;1;1;-1;1;1;1})+20)*{100,10,1}),""000"")"
    Range("E10").AutoFill Destination:=Range("E10:is10"), Type:=xlFillDefault
    Range("E10:is10").AutoFill Destination:=Range("E10:is2291"), Type:=xlFillDefault
    Range("A2279:IS2291").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
加代码;    复至到sheet3的有数据的最后一行的再下一行,从A列开始,然后把sheet1的e11:is2291的数据清除并把

e10的公式复至到sheet3的e列有数据的最后一格的上一格
    End With
    Application.ScreenUpdating = True
End Sub

mxg825

上传附件》》》》》

zjcat35

汗,你写VBA代码,结果却是往单元格写公式,这能不慢么!
       上传附件,然后说明结果

fghji

mxg825 发表于 2012-5-29 09:17
上传附件》》》》》

没有准备好附件,简单化的传过去也难说明问题.

fghji

zjcat35 发表于 2012-5-29 09:58
汗,你写VBA代码,结果却是往单元格写公式,这能不慢么!
       上传附件,然后说明结果

公式的原因不考虑,它有我方便的地方.后面的代码能补上就行

无聊的疯子

附件吧,就算是考试题也得有试卷吧,是不!!要不怎么知道答案对不对呢