Tách các file sheet ra mot bang excel mới

Trên file Excel, chúng ta thường tạo ra rất nhiều sheet để tăng cường sự liên kết về nội dung, dễ dàng chuyển đổi. Nhưng sẽ có một số hạn chế, trở ngại. File Excel có nhiều sheet sẽ làm tăng dung lượng file, gây trở ngại khi thêm các add ins hoặc VBA trên Excel.

Làm thế nào để cách các sheet ra từng file riêng biệt? Bài viết này sẽ hướng dẫn cách thực hiện.

Bước 1: Để tách các sheet và giữ nguyên hàng, các hàm, hay mã VBA (nếu có), bạn cần mở tab Developer, sau đó nhấn chọn Visual Basic.

Lưu ý: Nếu trên Excel bạn chưa có tab Developer thì thực hiện như sau:
Nhất chọn File -> Chọn Options

Hộp thoại Excel Options xuất hiện. Nhấn chọn Customize Ribbon và tick vào Developer và nhấn OK.

Bước 2: Tại hộp thoại Microsoft Visual Basic, chọn Insert -> Module

Bước 3: Dán đoạn code sau vào hộp thoại:

Splitbook()

‘Updateby20140612

Dim xPath As String

xPath = Application.ActiveWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For Each xWs In ThisWorkbook.Sheets

xWs.Copy

Application.ActiveWorkbook.SaveAs Filename:=xPath & “\” & xWs.Name & “.xls”

Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

Bước 4: Nhấn biểu tượng Run hoặc phím F5 để chạy mã code.

Sau khi chạy xong, bạn mở thư mục chứa file gốc sẽ thấy từng sheet đã được tách thành file Excel riêng biệt dùng theo tên đặt từng sheet.

Khi mở File Excel đã được tách bạn sẽ nhận được hộp thoại sau:

Nhấn “Yes” để tiếp tục.

Chúc các bạn thực hiện thành công!