小编sen*_*get的帖子

我有以下代码:

Sub RMS()
    Application.Calculation = xlCalculationManual
    Sheets("m1").Range("A3").FormulaR1C1 = "=LEN(LEFT(m!R[2]C,FIND(""x"",m!R[2]C & "","")-1))"
    Range("A1:A3").Select
    Selection.AutoFill Destination:=Range("A1:EZ3"), Type:=xlFillDefault
    Range("A1:EZ3").Select
    Selection.AutoFill Destination:=Range("A1:EZ600"), Type:=xlFillDefault
    Range("A1:EZ600").Select
End Sub

此代码运行速度非常慢.是否有任何帮助可以让这样的代码运行得更快,因为我在多张表中运行此代码？