Excel公式自动重算VBA代码，真正解决公式无法自动计算的问题

Sub CalcFormula() Dim objSheet As Worksheet Dim i As Integer Dim count As Integer count = Worksheets.count For i = 1 To count Set objSheet = Worksheets(i) objSheet.Select objSheet.UsedRange.Formula = objSheet.UsedRange.Formula Next End Sub 以上函数在Workbook_Open()内调用即可，调用方法（就是这么简单）： CalcFormula

Sub CalcFormula() Dim objSheet As Worksheet Dim i As Integer Dim count As Integer count = Worksheets.count For i = 1 To count Set objSheet = Worksheets(i) objSheet.Select objSheet.UsedRange.Formula = objSheet.UsedRange.Formula Next End Sub 以上函数在Wo