Excel VBA快速建立多张工作表

有的时候，我们需要快速批量在一个工作簿创建多张工作表，如果我们逐个去创建的话需要大量的时间。这里介绍用Excel VBA 来批量创建首先在新工作表中的一列上输入要新建命名的工作表，并把它们的单元格格式设置为文本格式。再录入代码运行即可自动创建
详细源码：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 i End Sub
动态图

1502522398628264.gif