1分钟创建12张工作表，还要改成不同的名称，让你秒变Excel小快手！

要在Excel中1分钟内创建12张工作表并分别命名为2016-01至2016-12，可通过以下VBA代码实现批量操作，步骤如下：操作步骤准备工作表名称在Excel的A列中依次输入2016-01至2016-12（共12个名称），并将A列数字格式设为“文本”（避免日期格式自动转换）。选中这12个单元格（如A1:A12）。图1：在A列输入名称并选中打开VBA编辑器按快捷键 Alt + F11，进入“Microsoft Visual Basic for Applications”窗口。插入模块并粘贴代码点击菜单栏 插入 → 模块，在右侧代码窗口粘贴以下代码：Public Sub CreateWorksheets() Dim i As Integer, RangeCount As Integer, SingleCell As Range Dim ArrayOfValue() As String With Selection RangeCount = .Count 统计选中单元格数量 End With ReDim ArrayOfValue(RangeCount) 定义数组存储名称 i = 1 For Each SingleCell In Selection 将名称存入数组 ArrayOfValue(i) = SingleCell.Value i = i + 1 Next SingleCell For i = 1 To RangeCount 批量创建工作表并命名 Worksheets.Add after:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = ArrayOfValue(i) Next iEnd Sub图2：插入模块并粘贴代码运行代码按 F5 运行代码，或点击工具栏的“运行”按钮。返回Excel窗口，即可看到12张已命名的工作表。图3：批量创建并命名的工作表保存文件（可选）若需保存文件，按 Ctrl + S，若弹出提示“无法在未启用宏的工作簿中保存以下功能”，点击“是”即可（不保留VBA代码）。图4：保存时忽略宏提示关键点说明代码逻辑：通过 Selection.Count 获取选中单元格数量（即需创建的工作表数）。使用数组 ArrayOfValue 存储每个单元格的名称。循环 Worksheets.Add 在末尾添加新工作表，并用 Name 属性赋值。适用版本：Excel 2003~2016均支持，其他版本需测试兼容性。扩展性：若需创建更多工作表，只需在A列输入更多名称并选中即可（如100个名称可一次性生成）。通过此方法，1分钟内即可完成12张工作表的创建与命名，大幅提升效率！