怎样通过“宏”把excel中的一个工作表中的行拆分成若干个独立的文件...
发布网友
发布时间：2024-02-10 10:37
共1个回答
热心网友
时间：2024-03-08 23:07
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、运行宏“拆分”
