在工作中為了防止粘貼過來的公式重算失暴，我們會選擇把單元格中的公式轉(zhuǎn)化成值镀层。
以下內(nèi)容介紹常用的方法
方法一：
一般來說會 先復(fù)制數(shù)據(jù)區(qū)域哨鸭，然后選擇區(qū)域起始單元格暂雹，用「選擇性粘貼-值」叉袍，來實(shí)現(xiàn)
方法二：
（比上一個稍快哦~）
選擇要轉(zhuǎn)化成值的公式區(qū)域错负，按右鍵不松瞬欧，拖動公式所在區(qū)域向右拖動一下再拖回來鼎天，會彈出小菜單供你選擇颜凯，選取僅復(fù)制數(shù)值谋币，就可以把公式轉(zhuǎn)換成值了。
方法三：
以上兩個方法在常規(guī)情況下解決這個小問題已經(jīng)足夠了症概，可但是蕾额。。彼城。诅蝶。退个。
昨天看同事操作，發(fā)現(xiàn)右鍵拖放的方法在數(shù)據(jù)篩選狀態(tài)下是不管用的调炬，但是問題還在啊语盈，于是，萬能的VBA來啦缰泡！
下面是大致步驟：
1.在工作表的標(biāo)簽上右鍵單擊刀荒，在彈出菜單中選擇「查看代碼」
2.在新窗口中，雙擊左邊的Thiswork 棘钞，代表當(dāng)前工作簿缠借，這樣的效果是方便工作簿中任意一個工作表在需要的時(shí)候調(diào)用代碼，（額宜猜，配圖在下邊呢）
3.然后在右邊的代碼窗口中粘貼以下代碼
Sub ConvAfterFilter()
On Error Resume Next
Application.ScreenUpdating = False
Dim Rng As Range
For Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If Rng.HasFormula Then
Rng.Copy
Rng.PasteSpecial xlValues
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
4.回到工作表里插入一個形狀做調(diào)用代碼的按鈕用
5.在插入的形狀上（以矩形為例）右鍵「指定宏」
6.選擇剛才粘進(jìn)去代碼生成的過程名「ConvAfterFilter」泼返，確定
7.適當(dāng)美化一下，一個小清新的按鈕就完成了
最后姨拥，用法啊绅喉，用法就是你需要把篩選的數(shù)據(jù)區(qū)域中的公式轉(zhuǎn)化成值時(shí)，點(diǎn)一下這個按鈕就OK了叫乌，這樣的好處就是一勞永逸啊柴罐，而且快速！ 準(zhǔn)確综芥！
總結(jié)：
該說的都說了丽蝎，就不總結(jié)了猎拨。膀藐。。红省。额各。。
有問題可以隨時(shí)反饋交流
