该VBA代码段用于将一个包含多个Sheet的Excel工作薄拆分成多个单独的Excel文件，每个文件对应原工作薄中的一个Sheet，并根据Sheet名称和行数命名。执行后，所有文件将保存在原工作薄的同一路径下，并显示消息提示拆分已完成。
Excel 多sheet分解成多个单独excel文件（VBA记录）
Sub 拆分工作薄()
Dim xpath As String
xpath = ActiveWorkbook.Path
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=xpath & “” & sht.Name & “(”& sht.usedrange.rows.count-1 &“).xlsx” ’
ActiveWorkbook.Close
Next
MsgBox “拆分完毕！”
End Sub
扫一扫
1091
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
