KB0204：有些 Excel 文件使用数据链接时速度很慢

问题

若 Excel 文件包含 Excel 数据链接（请参阅 从 Excel 创建元素）和过多的单元格样式，可能开始滚动时会很慢，Excel 似乎停止响应。

若 Excel 文件包含的单元格样式超过大约 3000 种，可能会发生此问题。您可以在即时窗口中使用以下 VBA 命令检查单元格样式的数量：

print Activeworkbook.Styles.Count 阅读更多

解决方案：清理受影响的工作簿

• 将您的工作表复制到新的工作簿中 阅读更多

  在 Office 2013 和更新版本中，默认情况下，在工作簿之间复制工作表会导致无法累计未使用的单元格样式：

  • 选择工作簿中的所有表格，方式为按住 SHIFT 键，然后单击第一个和最后一个工作表
  • 右键单击所选内容：Move or copy… > To book: (new book) 并勾选 Create a copy > OK
  • 以新名称保存新工作簿

• 使用清理工具清理您的工作簿 阅读更多

  使用 Microsoft 在 KB213904 中建议的清理工具。使用 XLStyles 工具，点击 Get Excel File，勾选 Force all cell styles to 'Normal'，然后点击 Process File。Excel 打开清理后的文件时，使用新名称保存该文件。

• 使用 VBA 宏从工作簿中删除自定义单元格样式 阅读更多

  使用 Alt+F11 打开 VBA 编辑器。选择您的工作簿并单击 Insert > Module。然后粘贴以下宏的其中之一，按 F5 运行该宏：

  DeleteCustomStyles() 会删除您工作簿中的所有自定义单元格样式。

  Sub DeleteCustomStyles()
  Dim st As Style
  Dim i, i_cust As Long
  i_cust = 0
  For i = (ActiveWorkbook.Styles.Count) To 1 Step -1
  	With ActiveWorkbook.Styles(i)
  		If .BuiltIn = False Then
  			On Error Resume Next
  			.Locked = False
  			On Error GoTo 0
  			If Not .Locked Then
  				.Delete
  				i_cust = i_cust + 1
  			End If
  		End If
  	End With
  	If (i Mod 100) = 0 Then Debug.Print i
  Next
  MsgBox "Styles deleted: " & i_cust & " styles" & Chr(13) & "Styles left: " & ActiveWorkbook.Styles.Count
  End Sub

  Remove_Styles() 会只删除您工作簿中未使用的自定义单元格样式。它与以上宏类似，但是运行可能需要很长时间。该宏由 Microsoft Office 支持提供。

  Option Explicit
  Dim st_array() As String
  Dim i_x As Long
  Sub Remove_Styles()
  Dim stname As String
  Dim ustname As String
  Dim uc As Range
  Dim retval As Boolean
  Dim ust As Style
  Dim sh As Worksheet
  i_x = 0
  For Each sh In ActiveWorkbook.Worksheets
      For Each uc In sh.UsedRange
          stname = uc.Style.Name
          retval = Check_Array(stname)
          If retval = False Then
          ReDim Preserve st_array(i_x)
          st_array(i_x) = stname
          i_x = i_x + 1
          End If
      Next uc
  Next sh
  For Each ust In ActiveWorkbook.Styles
      If ust.BuiltIn = False Then
          ustname = ust.Name
          retval = Delete_Styles(ustname)
          On Error Resume Next
          If retval = True Then ust.Delete
          On Error GoTo 0
      End If
  Next ust
  End Sub
  Function Delete_Styles(stylename As String) As Boolean
  Delete_Styles = True
  Dim i_y As Long
  For i_y = 0 To i_x - 1
      If st_array(i_y) = stylename Then Delete_Styles = False
  Next i_y
  End Function
  Function Check_Array(stylename As String) As Boolean
  Check_Array = False
  Dim i_y As Long
  For i_y = 0 To i_x - 1
      If st_array(i_y) = stylename Then Check_Array = True
  Next i_y
  End Function

最佳解决方案是防止粘贴未使用的单元格样式，但是需要 Microsoft 修复 Excel 2007 和更新版本中的 Bug。到目前为止，Microsoft 认为商业影响尚未高到足以提供此修复。若贵公司有 Microsoft Office 支持合同，而且您希望联系 Microsoft 请求修复，可以参阅 Microsoft 案例编号 113012810172527。

说明

有些 .xlsx 工作簿因 Excel 中的 Bug 和有问题的代码设计而包含大量（数万种）单元格样式。促成因素还包括报告工具，这些工具有时会生成许多不必要的单元格样式。