Excel 將數個 sheets 依 sheet 名稱切割

生活智慧王…

時常匯資料,每次各學校給的資料都不一樣…問題百出,這次的課題是他把要分開存的 excel 全部都存到同一個 xls 且分好幾個 sheet 要怎麼辦勒~

用下面這個 vba 來執行,就會依照不同的名稱存檔與來源相同的資料夾內囉。

excel 2007 開啟 vba 在選單 excel 選項的地方 開啟 開發人員頁籤~就能跑了…


Sub Macro1()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In Sheets
sh.Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "" & sh.Name & ".xlsx"
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完成"
End Sub

Syntax highlight office

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *