很多人遇到了EXCEL不能自動(dòng)重算的問(wèn)題，而一般的解決方案包括設(shè)置F9、勾選自動(dòng)重算選項(xiàng)以及使用Ribbon菜單的公式-計(jì)算選項(xiàng)-自動(dòng)功能。但是，大部分提問(wèn)者都已經(jīng)確認(rèn)過(guò)自己已經(jīng)進(jìn)行了這些設(shè)置，因此很

很多人遇到了EXCEL不能自動(dòng)重算的問(wèn)題，而一般的解決方案包括設(shè)置F9、勾選自動(dòng)重算選項(xiàng)以及使用Ribbon菜單的公式-計(jì)算選項(xiàng)-自動(dòng)功能。但是，大部分提問(wèn)者都已經(jīng)確認(rèn)過(guò)自己已經(jīng)進(jìn)行了這些設(shè)置，因此很可能回答者并沒(méi)有遇到過(guò)這種情況。因此，我將提供一些其他解決方案，針對(duì)非設(shè)置原因的情況（即在已經(jīng)勾選自動(dòng)重算的情況下）。

1. 確認(rèn)設(shè)置

首先，按照常規(guī)方法確認(rèn)自己是否正確設(shè)置了“自動(dòng)重算”的選項(xiàng)，如果仍然不能自動(dòng)重算，可以嘗試下面的方法。

2. 使用VBA代碼重新激活公式

打開(kāi)VBA的編輯窗口，可以在EXCEL中找到（WPS不確定是否有此功能）。在菜單中選擇插入-模塊，然后將以下代碼復(fù)制進(jìn)去，并點(diǎn)擊運(yùn)行按鈕（三角形圖標(biāo)）。

```

Sub TEST()

Dim Cularr()

Dim Cx As Integer

Dim Fx As Integer

False

For Each sha In Worksheets

Erase Cularr()

Cx 0

For Each RNG In

If RNG.HasFormula True Then

Cx Cx 1

ReDim Preserve Cularr(1 To 2, Cx)

Cularr(1, Cx) (0, 0)

Cularr(2, Cx)

End If

Next

If Cx > 0 Then

For Fx 1 To Cx

sha.Range(Cularr(1, Fx)).Value Cularr(2, Fx)

Next

Cx 0

End If

Next

True

MsgBox "重算已完成！", , "【提示】"

End Sub

```

3. 學(xué)習(xí)如何打開(kāi)VBA編輯器

如果你不熟悉如何打開(kāi)VBA編輯器，這個(gè)解決方案可能不太友好。但是如果你的工作涉及到重要的EXCEL數(shù)據(jù)且量較大，這個(gè)方法是一個(gè)可行的解決方案。你可以通過(guò)百度等搜索引擎學(xué)習(xí)如何打開(kāi)VBA編輯器，這只需要花費(fèi)幾分鐘時(shí)間。

總結(jié)

作為一個(gè)長(zhǎng)期編輯EXCEL模板的人，我經(jīng)常遇到不能自動(dòng)重算的問(wèn)題，尤其是在2007和2010版本中。整個(gè)工作簿的公式會(huì)變得無(wú)效，除非逐個(gè)單元格進(jìn)入并按回車(chē)鍵才能激活。激活個(gè)別公式是沒(méi)有意義的，因?yàn)檫@些公式可能引用了未激活的單元格。因此，我編寫(xiě)了上述基于VBA宏的代碼，可以依次激活所有帶有公式的單元格。激活之后，保存并重新打開(kāi)工作簿都是正常的，不需要再次使用代碼。至今我仍然不知道是什么原因?qū)е逻@種情況發(fā)生，所以我一直把它當(dāng)作EXCEL本身的BUG。希望這個(gè)針對(duì)性的解決方案能夠?qū)Υ蠹矣兴鶐椭?/p>