excel内容每行另存为一个工作薄

发布网友 发布时间：2023-02-10 11:21

我来回答

共4个回答

热心网友 时间：2024-11-29 01:18

Sub Macro1()

For i = 1 To 10

Windows("Book2").Activate
Rows(i).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\dying\桌面"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\dying\桌面\" & i & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Application.WindowState = xlMinimized

Next i
End Sub

上面代码有几处需要你修改
首先是Windows("Book2").Activate中的book2，改成你的文件名
另外是For i = 1 To 10 中的10 改成你的行数
其次 ChDir "C:\Documents and Settings\dying\桌面"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\dying\桌面\" & i & ".xls",
你的存放路径追问其次 ChDir "C:\Documents and Settings\dying\桌面"
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\dying\桌面\" & i & ".xls",

这个插入了地址好像不对呀

热心网友 时间：2024-11-29 01:18

Sub Macro1()
For r = 2 To Cells(1, 1).End(xlDown).Row
Rows(r).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="保存路径\Book" & r & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Next r
End Sub追问复制到EXCEL代码里面了，也修改了保存路径，但是没有表格没有反应啊。。。。

追答我看看 保存路径 那一行的代码
把代码放在标准模块里面，再执行

热心网友 时间：2024-11-29 01:19

必须使用VBA才可以实现的。我有个现成的拆分工具应该可以可以通用的。追问可以发给我试试看吗？

追答怎么发给你

热心网友 时间：2024-11-29 01:19

这个需要用VBA才方便些,要视你的具体表格而定