如何運(yùn)用快捷鍵將區(qū)域中的excel公式結(jié)果轉(zhuǎn)換為數(shù)值

在使用Excel時(shí)，如果經(jīng)常需要將某些區(qū)域中的公式結(jié)果轉(zhuǎn)換為數(shù)值，可以使用下面的VBA代碼，并將其指定一個(gè)快捷鍵。這樣，用快捷鍵就可以快速將某些區(qū)域中的公式結(jié)果轉(zhuǎn)換為數(shù)值。方法如下：

??? 1.按Alt+F11，打開(kāi)VBA編輯器，單擊菜單“插入→模塊”。

??? 2.在右側(cè)的代碼窗口中輸入下列VBA代碼：

??? Sub MakeValues()
??? Dim Rng As Range
??? Application.ScreenUpdating = False
??? Application.Calculation = xlCalculationManual
??? For Each Rng In Selection
??? Rng.Value = Rng.Value
??? Next Rng
??? Application.ScreenUpdating = True
??? Application.Calculation = xlCalculationAutomatic
??? End Sub

??? 3.關(guān)閉VBA編輯器，返回到Excel工作表界面。

??? 4.按快捷鍵Alt+F8，打開(kāi)“宏”對(duì)話(huà)框。選擇“MakeValues”宏命令，點(diǎn)擊“選項(xiàng)”按鈕。

???

??? 在彈出的“宏選項(xiàng)”對(duì)話(huà)框中，為該宏指定一個(gè)快捷鍵，如“Ctrl+E”。

???

??? 單擊“確定”按鈕，關(guān)閉“宏”對(duì)話(huà)框。

??? 以后，無(wú)論在該工作簿的哪個(gè)工作表中，如果需要將某些區(qū)域中的公式結(jié)果轉(zhuǎn)換為數(shù)值，只需按快捷鍵“Ctrl+E”即可。其方便之處是使用了快捷鍵，較為快捷，另外還可以一次選區(qū)多個(gè)不連續(xù)的區(qū)域進(jìn)行轉(zhuǎn)換，而用選擇性粘貼為數(shù)值的方法無(wú)法實(shí)現(xiàn)這一點(diǎn)。但其不足之處是運(yùn)行宏代碼后，撤消列表中的內(nèi)容將被清空，因而無(wú)法撤消與恢復(fù)。