这段代码如何优化一下运行速度更快呢？

qjsu

Sub 新建工程表格()
Dim i As Integer
Dim y As Integer
Dim arr, x
Application.ScreenUpdating = False
Application.DisplayAlerts = False
y = InputBox("请输入工程数量")
For i = Sheets.Count - 3 To y - 1
Sheets("1").Copy after:=Sheets(i + 1)
ActiveSheet.Name = i + 1
Next
If y <= Sheets.Count - 4 Then
ReDim arr(y + 2 To Sheets.Count - 2)
      For x = y + 2 To Sheets.Count - 2
      
      arr(x) = Worksheets(x).Name
      
      Next
      
      Worksheets(arr).Select
      
      ActiveWindow.SelectedSheets.Delete
End If
Sheets("1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

zjdh

你本身需要一个一个复制工作表，非要那么多时间！
至于删除工作表你是先选择，后删除，可改成直接删除：
Worksheets(arr).Delete
但提速也是微不足道的。

qjsu

zjdh 发表于 2012-11-4 08:32
你本身需要一个一个复制工作表，非要那么多时间！
至于删除工作表你是先选择，后删除，可改成直接删除：
...

这个是整个程序的一部分，只要你能节省一点加起来就多了，谢谢