怎样通过“宏”把excel中的一个工作表中的行拆分成若干个独立的文件？

Question

如题所述

Answer 1

假定要将sheet1表第二行起每一行创建为一个新工作簿（独立文件），工作簿以B列单元格值命名。
1、ALT+F11
2、插入模块
3、粘贴以下代码到模块中
Sub 拆分()
Dim i As Long
Dim na As String
Application.ScreenUpdating = False
For i = 2 To Sheets("sheet1").Range("b65536").End(xlUp).Row
na = Sheets("sheet1").Cells(i, 2).Value
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & na & ".xls"
Rows(i).Copy Rows("2")
Rows("3:" & Range("b65536").End(xlUp).Row).Delete
ActiveWindow.Close savechanges:=True
Next
Application.ScreenUpdating = True
End Sub
4、运行宏“拆分”

Answer 2

捣鼓了一晚上，结果你一段代码搞定，牛掰！！！

Answer 3

问题描述的太笼统了，请再详细说明。
要拆分的“行”有什么规律？拆分成的“文件”指是哪种类型？
请结合实例说明追问

http://zhidao.baidu.com/question/347920769.html
请进入以上链接，我的问题和他的问题1是一样的，请帮忙解决一下！
我可以追加分数的......