百度360必应搜狗淘宝本站头条
linux取消挂载yum卸载下横线怎么打mysql 外网访问权限php打乱数组顺序
当前位置：网站首页 > 编程文章 > 正文

【VBA入门必备】工作表的添加与删除，3分钟学会自动化操作!

qiyuwang 2025-03-28 20:44 4 浏览 0 评论

在日常工作中，Excel表格的增删改查是高频操作。如果每次都要手动右键点击添加或删除工作表，效率实在太低！
今天教你用VBA代码一键搞定，从此告别重复劳动，效率翻倍！

一、添加工作表：3种常用方法

1. 基础版：添加一个空白工作表

Sub 添加工作表()
    Worksheets.Add  '在活动工作表前插入一个新表
    '或指定位置：
    Worksheets.Add After:=Worksheets(Sheets.Count)  '在最后插入
End Sub

效果：默认名称是“SheetX”（如Sheet1、Sheet2）。

2. 进阶版：自定义名称和位置

Sub 添加自定义工作表()
    Dim ws As Worksheet
    Set ws = Worksheets.Add(Before:=Worksheets(1))  '在第一个工作表前插入
    ws.Name = "2023销售数据"  '重命名新表
End Sub

注意：工作表名不能重复，否则会报错！可用以下代码避免：

On Error Resume Next  '忽略错误
ws.Name = "新名称"
On Error GoTo 0       '恢复错误提示

3. 批量添加多个表

Sub 批量添加工作表()
    Dim i As Integer
    For i = 1 To 5  '循环添加5个表
        Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "部门" & i
    Next i
End Sub

效果：生成“部门1”到“部门5”共5个表。

二、删除工作表：2种安全方法

1. 删除指定名称的工作表

Sub 删除单个表()
    Application.DisplayAlerts = False  '关闭警告提示
    Worksheets("临时表").Delete        '删除名为“临时表”的工作表
    Application.DisplayAlerts = True   '恢复警告提示
End Sub

关键点：

  • Application.DisplayAlerts = False 可跳过确认弹窗，避免中断代码。
  • 慎用！ 删除前建议先备份数据。

2. 批量删除工作表（保留指定表）

Sub 批量删除表()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In Worksheets
        If ws.Name <> "总表" Then  '保留名为“总表”的工作表
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True
End Sub

效果：删除除“总表”外的所有工作表。

相关推荐

别再乱找了!这才是 Alist 本地安装挂载的正确打开方式

一、探秘Alist的神奇世界在这个数据爆炸的时代，我们的生活里充斥着各种各样的网盘服务，百度网盘、阿里云盘、腾讯微云等等，它们成了我们存储资料的得力助手。但随着网盘数量的增多，管理这些分散在不同平...

如何将数据从旧iPhone传输到新iPhone 16?这五个方法你必须知道!

前不久，苹果发布了备受期待的iPhone16系列，新机型搭载了更强大的芯片、更流畅的操作体验，还有备受热议的全新摄像系统。无论你是冲着A18仿生芯片，还是更丰富的动态岛功能，相信很多果粉早已跃跃欲试...

大数据传输的定义与大数据传输解决方案的选择

当我们需要处理大量的数据时，我们就要把数据从一个地方移动到另一个地方。这个过程就叫做大数据传输。它通常需要用到高速的网络连接、分散的存储系统和数据传输协议，以保证数据的快速、可靠和安全的移动。常用的大...

【工具】在线传输文件工具（在线文件互传）

前言在线传输文件工具主要是用于在不同的设备之间，如手机、电脑、平板等快速便捷地传送文件。告别使用USB传统传输文件的方式。...

如何使用 CAN-FD 在 LPC5500 上传输数据

目录1引言2CAN-FD3示例演示1引言...

轻松同步:将照片从三星手机传输到iPad的简便方法

概括想要在新iPad上查看三星照片吗？但是，如果您不知道如何将照片从三星手机传输到iPad，则无法在iPad上查看图片。为此，本文分享了7个有用的方法，以便您可以使用它们在不同操作系统之...

常见又地道的网络缩写:美剧中常说的SFW到底是个啥?

在这堂课中，让我们来学习更多在数字网络世界中常用的有趣网络用语。7shifts/unsplashhttp,https“http”和“https”是万维网（www）传输文件用的协议。“http”是hy...

每天学会一个计算机网络协议之FTP

开始行文之前提出一个问题，相信大家在看完本文后一定可以回答当我们在网站上填写注册信息的时候，需要我们上传照片，上传的过程发生了什么？下面引入我们的主角，FTP文件传输协议FTPFileTransf...

即用即走，这3款文件分享工具真香

打工人的日常，免不了「文件分享存储服务」的需求。我们一般会选择不同的网盘，但是大家也知道，网盘不是限速就是叫你充值。今天跟大家简单推荐3款文件分享工具，既可以免登录匿名使用，而且操作简单稳定性也不错。...

安卓手机里的文件和照片与Mac互传的办法

因为HandShake一段时间未更新，似乎目前不可操作。我一时间未找到更好的「传输」办法，经实践操作，向大家介绍一下「安卓手机」，包括「一加」、「索尼」，都可用此方法，来进行文件传输到Mac的...

软网推荐:同一个平台选择不同的传输方法

平时上网的时候，我们经常要分享一些文件给其他朋友，一般通过云服务平台来实现。今天笔者给大家介绍的Worksphere传输服务，它提供了两种不同的分享方式，方便我们根据实际需要进行选择。一个链接分享所有...

跨平台不限速的免费文件传输网站（跨平台不限速的免费文件传输网站是什么）

大家好，欢迎来到天天惠分享，不知道各位平时都是用什么方法来进行文件跨平台传输的呢？是百度网盘?微信还是QQ?亦或是有线传输。虽然这些方法都可以达到传输的目的，但都有各自的缺陷，使用起来一言难尽。比如百...

全网最全最详细的全平台文件传输方法，解决你文件传输问题(一)

前言想必现在大多数人文件传输的方法还是使用qq微信，但是qq微信的文件传输有时候真是，...

文件传输工具有哪些?这3款堪称办公必备!

在不同设备间，想把文件从一台设备传输到另一台，尤其是大体积文件，更是免不了用到文件传输工具，可以说文件传输工具已成为提升效率的关键载体。面对海量文档、设计素材、会议纪要的流转需求，传统邮件附件、U盘拷...

小白也能用的跨网文件交换系统!10款简单易上手的文件摆渡工具

跨网文件交换系统对于需要频繁在不同网络环境中进行文件共享的用户来说至关重要。以下是10款简单易上手的文件摆渡工具，适合小白用户使用，帮助他们高效地分享和传输文件。10款简单易上手的跨网文件交换工具1....

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表