牛b！Excel一键生成N个工作表跟工作簿

送2段VBA代码，轻松实现一键生成。

1、根据A列的内容生成工作表，使用VBA代码如下：

Sub NewSheet()

        For i = 2 To [a65536].End(3).Row

            Worksheets.Add after:=Sheets(Sheets.Count)

            Sheets(i).Name = Sheet1.Cells(i, 1)

        Next 

End Sub

2、根据A列的内容生成工作簿，使用VBA代码如下：

Sub NewWorkbook()

        For i = 2 To [a65536].End(3).Row

            Mystr = Range('a' & i).Value

            Set wb = Workbooks.Add

            wb.SaveAs Filename:=ThisWorkbook.Path & '\' & Mystr & '.xlsx'

            wb.Close

        Next

End Sub

如果还不懂使用VBA，使用快捷键Alt+F11，调出VBA编辑器，插入模块后，将代码复制进去，按F5运行。

VBA是一种非常神奇的语言，只要你能想到的功能基本都能实现。