通过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次。
|
|
|
|
