送2段VBA代碼，輕松實(shí)現(xiàn)一鍵生成。

1、根據(jù)A列的內(nèi)容生成工作表，使用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、根據(jù)A列的內(nèi)容生成工作簿，使用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，調(diào)出VBA編輯器，插入模塊后，將代碼復(fù)制進(jìn)去，按F5運(yùn)行。

VBA是一種非常神奇的語言，只要你能想到的功能基本都能實(shí)現(xiàn)。