使用VBA Selection.AutoFill提高性能

我有如下代码：

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 

这段代码运行速度很慢。 有没有什么帮助可以给，这样的代码可以运行得更快，因为我在多个表中运行此代码？

Answer 1

这将会更快：

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