[已解决]遍历工作表并删除公式（选择性粘贴 值）

乐乐2006201506

            遍历某个工作薄中所有工作表，并且清除公式，希望写两个代码：
        第一个代码为只清除单个工作表中的所有公式（可用选择性粘贴中保留值的办法，有其他办法更好）；
        第二个代码为遍历工作薄中所有工作表清除每个工作表（工作簿中有几个工作表，就清除几个工作表中的公式）中所有公式。
            希望用最简便高效的方法解决。

最佳答案

月排行榜 / 总排行榜

ghostjiao

2016-6-15 08:32

1. Sub demo1()
   
2.    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
   
3. End Sub
   
4. Sub demo2()
   
5.     Dim sh As Worksheet
   
6.     For Each sh In ActiveWorkbook.Sheets
   
7.         sh.UsedRange.Value = sh.UsedRange.Value
   
8.     Next
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

乐乐2006201506

这也是一种方法（代码是用宏录制后修改的），只是比较笼统，希望可以简化或者写出更通用，更简洁高效的代码，谢谢！

Sub 选择性粘贴值()
    Sheets.Select
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False    '取消复制后边框虚线闪烁问题
    Sheets("测试").Activate
    Sheets("管理 (模板)").Activate
    Range("A6").Select
End Sub

ghostjiao

1. Sub demo1()
   
2.    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
   
3. End Sub
   
4. Sub demo2()
   
5.     Dim sh As Worksheet
   
6.     For Each sh In ActiveWorkbook.Sheets
   
7.         sh.UsedRange.Value = sh.UsedRange.Value
   
8.     Next
   
9. End Sub
   

复制代码

雪舞子

加入 If 处理单个工作表，
去掉 If 处理所有工作表。

1. Sub test()
   
2.     Dim arr, sh As Worksheet
   
3.     For Each sh In Sheets
   
4.         If sh.Name = "测试" Then '只处理“测试”工作表，去掉if处理所有工作表
   
5.             arr = sh.UsedRange
   
6.             sh.UsedRange = arr
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

若只想隐藏公式可不必这么麻烦，
右键单击预隐藏公式单元格（区域），
单元格选项-保护-隐藏（打勾），
审阅选项卡-保护工作表。



保护公式求助.rar (73.86 KB, 下载次数: 21)

2016-6-15 08:35 上传

点击文件名下载附件

乐乐2006201506

雪舞子 发表于 2016-6-15 08:39
加入 If 处理单个工作表，
去掉 If 处理所有工作表。若只想隐藏公式可不必这么麻烦，
右键单击预隐藏公式 ...

        是要完全清除公式，不用隐藏，谢谢您！