VBA快速复制全部工作表

最新推荐文章于 2025-06-06 15:43:01 发布

原创

最新推荐文章于 2025-06-06 15:43:01 发布 · 3.4k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#复制工作表 #快速复制 #复制全部工作表 #VBA #快速

文章介绍了如何使用VBA在Excel工作簿中复制所有工作表，对比了不同循环方式的实现，包括使用ForEach和For循环，并指出在使用For循环时需要注意工作表数量变化导致的引用问题。此外，还提供了一行代码的简洁解决方案和使用数组保存工作表名称的方法。

实例需求：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)引用的工作表并不是需要拷贝的工作表。如果一定需要用这种循环方式，就需要增加一个累计变量，避免工作表的引用错误。

在这里插入图片描述

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

Su

最低0.47元/天解锁文章