文件—工具—备份中心—本地恢复，找到自己对应的文件即可~
第一步
、
第二步~找到工具栏中的备份中心
第三步

第四歩、进入备份中心，找到自己对应的文件即可

Excel表格中如何批量删除工作表

目录

Excel表格中如何批量删除工作表

1、工作表这么多，一个一个删除太费劲，如何让快速删除？

2、按住“ctrl”键选中工作表，工作表颜色变白，鼠标右键点击“删除”即可

1、工作表这么多，一个一个删除太费劲，如何让快速删除？

2、按住“ctrl”键选中工作表，工作表颜色变白，鼠标右键点击“删除”即可

安利一个R语言的优秀博主及其CSDN专栏：
博主博客地址：

Data+Science+Insight的博客_CSDN博客-R语言从入门到机器学习,数据科学从0到1,机器学习面试+横扫千军领域博主

博主为CSDN数据科学领域知名博主（博客内容包括：数据科学从0到1、R语言从入门到机器学习、机器学习面试+横扫千军、Python编程技巧高效复用等系列） 毕业于中国科学院大学智能计算专业。研究方向为，数据挖掘、机器学习、深度学习等。深度参与了多项数据挖掘、计算机视觉以及自然语言处理相关项目，例如，社会计算、异常分析、聚类分析、预测分析、序列标记、语言生成、OCR、图像分类+检测+分割等。现任某茅数据科学家，负责数据科学团队的管理及项目实施。曾就职于中国信科集团，负责大数据与机器学习组的管理及项目实施。曾参与国家级医疗大数据平台机器学习项目的开发和建设、构建了完整的数据链路、特征池、模型仓库、迁移中心、数据应用、数据服务Pipeline，并与AWS中国基于AWS云服务合作开发大型工业互联网项目，积累了工业互联网模型构建、部署、监控实战经验。

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

在 Excel中，函数实际上是一个预先定义的特定计算公式。按照这个特定的计算公式对一个或多个参数进行计算，并得出一个或多个计算结果，叫做函数值。使用这些函数不仅可以完成许多复杂的计算，而且还可以简化公式的繁杂程度。

我们生活的这个世界是丰富多彩的，几乎所有的知识都来自于视觉。也许无法记住一连串的数字，以及它们之间的关系和趋势。但是可以很轻松地记住一幅图画或者一个曲线。因此通过使用图表，会使得用Excel编制的工作表更易于理解和交流。
 

在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表，那么运行时错误’1004‘就不期而遇的跳了出来。

老规则 —— 先删除再创建，删除工作表很简单嘛，Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口，Excel的产品经理考虑过宝宝们的用户体验吗！？删除工作表也搞得这么复杂，又不是从银行账户里转走500万。

每次都这么麻烦，必须拿出VBA来搞定它了。

Sub DelSheet(vShtName, Optional sWkName As String)
    Dim sName
    With Application
        .DisplayAlerts = False
        On Error Resume Next
        If Len(sWkName) > 0 Then
            Set objWk = ActiveWorkbook
        Else
            Set objWk = Workbooks(sWkName)
        End If
        If VBA.IsArray(vShtName) Then
            For Each sName In vShtName
                objWk.Sheets(sName).Delete
            Next
        Else
            objWk.Sheets(sShtName).Delete
        End If
        On Error GoTo 0
        .DisplayAlerts = True
    End With
End Sub

这个事儿整的似乎有点儿大，一句代码怎么被扩展成了20多行。莫急，俗话说工欲善其事，必先利其器，以后调用起来就so easy。

Sub Demo()
    '删除单个工作表
    DelSheet Array("sheet1")
    '删除多个工作表，并指定工作簿
    DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
End Sub

无论是当前工作簿还是其他工作簿，即可以删除单个工作表，又可以删除一组工作表，随心所欲一句代码就搞定。