第一次建目录时速度慢，如何改善？

金刚菩提888

我在一张工作簿中，sheet1建目录时，第一次建立时，速度慢。有时要十几秒。工作簿中有几百个工作表，现在模拟了几个。但还是慢。 不知道怎么改善。也不知什么地方降低了速度。哪位大佬能否指点一下？代码如下：



Sub BuildSheetList()      tt = Timer    Application.ScreenUpdating = False    Application.EnableEvents = False    Dim i%, k&, a&, s&, strName As String    Sheet1.Select   With Range("a:f")   .ClearContents   .NumberFormat = "@"    End With     Range("a1") = "   总   目   录"     Range("a2,e2") = "物料  号"      Range("b2,f2") = "价  格"    For i = 2 To Sheets.Count - 1      s = Int(i / 2) + 2     a = (i Mod 2) * 4 + 1      k = a + 1        strName = Sheets(i).Name        Cells(s, a).Value = strName         Cells(s, k).Value = Sheets(i).Cells(4, 12).Value        ActiveSheet.Hyperlinks.Add anchor:=Cells(s, a), Address:="", _                SubAddress:="'" & strName & "'!g4", TextToDisplay:=strName    Next      'On Error Resume Next     With Range("a:a,e:e").Font            .Name = "楷体"        .FontStyle = "常规"        .Size = 16                .Color = vbRed                      End With                On Error Resume Next        With Range("b:b,f:f").Font                .Name = "楷体"        .FontStyle = "常规"        .Size = 10                 .ThemeColor = xlThemeColorAccent3                End With Application.EnableEvents = True         Application.ScreenUpdating = Truett2 = Timer - ttDebug.Print tt2End Sub

ykcbf1100

代码花花的，看不清楚。

yylucke

代码没毛病啊
可以屏蔽以下语句（多余的）
Sheet1.Select
Cells(s, a).Value = strName

3190496160

不是什么都得要用代码来完成的，比如：标题，单元格格式，事先在目录中设置好，代码不懂格式即可，这样就可以大大提高代码运行效率的

limonet

很奇怪是什么工作会工作簿中有几百个工作表？！

金刚菩提888

下载表格，即可看到代码。因为是第一次上传。不知为什么会变成这样了。实际上是一个个设计表单。格式完全一样。但里面的数据不同。所以会有几百个。我把内容简化了。就是不知第一次建目录时，速度太慢。想改善它。