最佳答案最终效果如下图：操作步骤在准备数据的表格中，按ALT+F11，调出VBA代码窗口，复制粘贴以下代码，回到表格，再按ALT+F8执行代码，就可以了。具体代码如下:Sub 宏1()Dim ii = 2While Cells(i, 1) <> “”Workbooks.A......
最终效果如下图：
操作步骤
在准备数据的表格中，按ALT+F11，调出VBA代码窗口，复制粘贴以下代码，回到表格，再按ALT+F8执行代码，就可以了。
具体代码如下:
Sub 宏1()
Dim i
i = 2
While Cells(i, 1) <> “”
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & “\” & Cells(i, 1) & “.xlsx”
ActiveWindow.Close
i = i + 1
Wend
End Sub
代码简单解释：
版权声明：本文内容/及图片/由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭/侵权/违法违规的内容，
请发送邮件至 ks13@qq.com 举报，一经查实，本站将立刻删除。
