# 几行VBA代码实现excel复制粘贴多个Sheet表

几行VBA代码实现excel复制粘贴多个Sheet表

一、启用开发者选项：如果 Excel 中没有显示开发者选项，需要先在文件选项中启用它。

1、打开 Excel 软件，点击左上角的 “文件” 选项卡，然后从下拉菜单中选择 “选项”。

2、在弹出的 “Excel 选项” 对话框中，选择左侧的 “自定义功能区”。

3、在右侧的 “主选项卡” 列表中，找到 “开发工具”，并勾选它。

4、点击 “确定”，开发者选项卡将显示在 Excel 功能区中。

二、编写代码：

按下 “Alt + F11” 打开 VBA 编辑器，或者点击【工具】菜单下的【开发工具】，找到【VB编辑器】。插入一个新的模块，然后编写如下代码：

Sub CopySheets()
    Dim i As Integer
    For i = 1 To