工作簿里有多个工作表，一次性去除公式，保留数值

shishui

工作簿里有多个工作表，一次性去除公式，保留数值，我搜了全站，也没找到解决方案，请有此方案的大侠朋友相助，巨蟹

大灰狼1976

for each sht in worksheets
  sht.usedrange=sht.usedrange.value
next

zzj198237

选择性黏贴
VBA 程序

Sub test()
Dim sh As Worksheet
Set sh = Sheets("要处理的表格")
sh.Cells.Copy
sh.Range("A1").PasteSpecial (xlPasteValues)
End Sub

gbgbxgb

你搜索了全站？真滴假滴？不靠谱的话不要说。

参考下列码：

1. Sub kkk()
   
2.     Dim sht As Worksheet, rng As Range, MyArea As Range
   
3.     '
   
4.     Application.ScreenUpdating = False
   
5.     For Each sht In ThisWorkbook.Worksheets
   
6.         With sht
   
7.             On Error Resume Next
   
8.             Set rng = .Cells.SpecialCells(xlCellTypeFormulas)
   
9.             On Error GoTo 0
   
10.             If Not rng Is Nothing Then
    
11.                 For Each MyArea In rng.Areas
    
12.                     MyArea.Copy
    
13.                     MyArea.PasteSpecial xlPasteValues
    
14.                 Next MyArea
    
15.             End If
    
16.         End With
    
17.     Next sht
    
18.     Application.CutCopyMode = False
    
19.     Application.ScreenUpdating = True
    
20. The_Exit:
    
21.     Set rng = Nothing
    
22. End Sub

复制代码

yll148

遍历全部工作表有公式的单元格，复制粘贴为值即可。

YZC51

试试
    Cells = Cells.Value