VBA快速复制全部工作表

实例需求：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对象的方法可以事倍功半。