一、场景

例如公司有30个人，每个人都有一个相应的销售数据，保存在不同的Sheet。

当然我们一步一步创建30个Sheet，使用VBA批量创建会更加快速。

二、VBA实现效果

1odqr71zil.gif

三、实现步骤

  1. 创建xlsm文件

  2. 添加如下VBA代码 ```vbnet Sub createSheets() Dim length As Integer ‘长度，总共需要创建多少个Sheet length = Sheet1.UsedRange.Rows.Count ‘获取使用的单元格共有多少行

    For i = 2 To length Worksheets.Add after:=Worksheets(Worksheets.Count) ‘在最后的Sheet后增加Sheet ActiveSheet.Name = Sheets(1).Cells(i, 1).Value ‘Sheet名字设置为Sheets(1)表中A列的值 Next i

End Sub ```

  1. 运行

参考

  1. 运用excel中的vba批量新建多个sheet工作表 - 简书
  2. Worksheet.UsedRange 属性 (Excel) | Microsoft Docs
  3. Range 对象 (Excel) | Microsoft Docs
  4. Range.Count 属性 (Excel) | Microsoft Docs