有三个原因:一是excel在兼容模式下运行,二是工作表格式损坏,三是单元格格式太多。
解决方法:另存为excel默认的版本,或升级更高的版本;把内容复制到新工作表中,粘贴时选择数值;如果单元格格式太多,运行以下代码试试:
Sub StyleKill()
Dim styT As Style
Dim intRet As Integer
On Error Resume Next
For Each styT In ActiveWorkbook.Styles
If Not styT.BuiltIn Then
If styT.Name <> "1" Then styT.Delete
End If
Next styT
End Sub