VBA快速复制全部工作表

2023-04-01 20:16| 来源: 网络整理| 查看: 265

实例需求：Excel工作簿中有多个工作表（个数不确定），现需要将所有工作表复制一份，插入到原工作表之前，如下图所示。

在这里插入图片描述

示例代码如下。

Sub Demo1() With ActiveWorkbook For Each sht In .Sheets sht.Copy .Sheets(1) Next End With End Sub

【代码解析】第3~5行代码循环变量工作表，第4行代码拷贝sht工作表，插入到第一个工作表之前。

代码并不复杂，有的同学会想到遍历工作表除了使用For Each循环，还可以使用普通For循环，示例代码如下。

Sub Demo_Err() Dim i With ActiveWorkbook For i = 1 To .Sheets.Count .Sheets(i).Copy .Sheets(1) Next End With End Sub

运行结果并不是拷贝全部工作表，而是将Sheet1工作表拷贝了3次，其原因在于随着工作表拷贝的进行，工作表的个数在增加，Sheets(i)引用的工作表并不是需要拷贝的工作表。如果一定需要用这种循环方式，就需要增加一个累计变量，避免工作表的引用错误。

在这里插入图片描述

也可以使用如下的变通方法，示例代码如下。

Sub Demo3() Dim arr(), i With ActiveWorkbook ReDim arr(1 To .Sheets.Count) For i = 1 To .Sheets.Count arr(i) = .Sheets(i).Name Next .Sheets(arr).Copy .Sheets(1) End With End Sub

【代码解析】第4行代码声明数组，用于保存工作表名称。第5~7行代码将全部工作表保存在数组中。第8行代码拷贝工作表。

其实拷贝全部工作表可以更简单，只需要一行代码就可以实现，示例代码如下。

Sub Demo4() ActiveWorkbook.Sheets.Copy ActiveWorkbook.Sheets(1) End Sub

调用Sheets集合的Copy可以快速完成拷贝工作表。

灵活使用VBA对象的方法可以事倍功半。

【本文地址】

公司简介

联系我们