Excel批量清除公式仅保留值

前言

• 资源表清除表格公式，步骤非常繁琐，借此研究使用脚本简化流程

参考

• 知乎 office | excel批量清除公式仅保留值的两种方法

环境

• 由于WPS不允许个人使用VBA宏，所以只能使用微软Excel运行

步骤

1. 新建Excel表格，搜索”录制宏“
   

2. 重命名宏（默认即可）+设置快捷键

3. 再次搜索”录制宏“，停止录制

4. 搜索“查看宏”

5. 点击编辑

6. 清除原先内容，将代码粘贴进去，并退出保存

7. 再打开需要的表格（可以在其他表格上运行）后，搜索“查看宏”，或者使用设置好的快捷键运行

8. 运行后效果展示：

总结

清除公式仅保留值：

Sub 清除公式仅保留值()

Dim sh As Worksheet
'声明一个工作表对象变量sh
For Each sh In Sheets
'遍历所有工作表
sh.UsedRange.NumberFormatLocal = "@"
'设置已使用区域的数字格式为文本格式"@"
sh.UsedRange = sh.UsedRange.Value
'设置已使用区域的值为其自身的值,即公式结果
Next

End Sub

删除名为数据的sheet：

Sub 删除名为数据的sheet()

Dim ws As Worksheet
'声明一个工作表对象变量ws
For Each ws In Worksheets
    If ws.Name = "数据" Then
    '遍历所有工作表,如果工作表的名称等于"数据",则执行删除。
        Application.DisplayAlerts = False
        '删除前后设置DisplayAlerts属性为False,禁止显示确认提示框
        ws.Delete
        '删除工作表
        Application.DisplayAlerts = True
        '删除完成后恢复DisplayAlerts为True
        Exit For
        '退出For循环
    End If
Next ws

End Sub

注意事项：

• 宏的操作无法撤回，注意文件备份