通过1个excel表格中的单元格内容批量建多个sheet表

情景如下：在sheet2表中，1行多列中有部分值，需要按值生成多个表

Sub 通过单元格建多个sheet表()
a = Sheet2.UsedRange.Columns.Count
Debug.Print a
For i = 1 To 2
    Sheets.Add
    ActiveSheet.Name = Sheet2.Cells(1, i)
Next
End Sub

运行上面的代码后，虽然生成了sheet，但生成的sheet都是空白内容。



下面的代码中，只是增加了一行，但结果完全不同了，是新建了多个workbooks。

Sub 通过单元格建多个sheet表()
a = Sheet2.UsedRange.Columns.Count
Debug.Print a
For i = 1 To 2
    Sheets.Copy
    Sheets.Add
    ActiveSheet.Name = Sheet2.Cells(1, i)
Next
End Sub

上面的2段代码，都可以把cells中的i替换为a，i只是循环了2次。