作者：乔山办公网日期：
返回目录：excel表格制作
不知道百你是在什度么情况下生成你问看下这个帖答子内可能会对有帮助容http://club.excelhome.net/thread-1151827-1-1.html
Sub a()
For i = 3 To [a65536].End(3).Row
Workbooks.Add
ActiveWorkbook.Sheets(1).Name = Range("A" & i).Value
Rows("1:2").Copy ActiveWorkbook.Sheets(1).[a1]
Rows(i).Copy ActiveWorkbook.Sheets(1).[a3]
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A" & i).Value & ".xlsx"
ActiveWorkbook.Close
Next i
End Sub
试试zd看专吧属
是工作表知还是工作薄？？
新建工作表 不用那么麻烦，你新建一个之后保存，复制－粘贴 得到两道个，把两个选上，复制－粘贴得到四个，依次递增，就可以得到很多个。
如果是在EXCEL内部新建工作表 做法与上面类似，只不过选择空的版工作表，点右键，建立副本打勾勾，选择移至最后（只项可省略），按住键盘上的SHIFT键，进行工作表多选，之后建立副本，自己体会一下。权