在使用Excel時,如果經常需要將某些區域中的公式結果轉換為數值,可以使用下面的VBA代碼,并將其指定一個快捷鍵。這樣,用快捷鍵就可以快速將某些區域中的公式結果轉換為數值。方法如下:
1.按Alt+F11,打開VBA編輯器,單擊菜單“插入→模塊”。
2.在右側的代碼窗口中輸入下列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.關閉VBA編輯器,返回到Excel工作表界面。
4.按快捷鍵Alt+F8,打開“宏”對話框。選擇“MakeValues”宏命令,點擊“選項”按鈕。
在彈出的“宏選項”對話框中,為該宏指定一個快捷鍵,如“Ctrl+E”。
單擊“確定”按鈕,關閉“宏”對話框。
以后,無論在該工作簿的哪個工作表中,如果需要將某些區域中的公式結果轉換為數值,只需按快捷鍵“Ctrl+E”即可。其方便之處是使用了快捷鍵,較為快捷,另外還可以一次選區多個不連續的區域進行轉換,而用選擇性粘貼為數值的方法無法實現這一點。但其不足之處是運行宏代碼后,撤消列表中的內容將被清空,因而無法撤消與恢復