Cách tách sheet thành file trong Excel đơn giản nhất 2022

Cách tách sheet thành file trong Excel là gì? Làm việc với nhiều Sheet trên một file Excel giúp chúng ta tương tác, trao đổi và liên kết giữa các bảng tính tương quan tính toán dễ dàng hơn và hiệu quả hơn. Tuy nhiên, đây cũng là điều gây khó khăn không nhỏ nếu file Excel của bạn quá lớn, và có quá nhiều Sheet cùng một lúc.

Bạn đang xem bài viết: Cách tách sheet thành file trong Excel đơn giản nhất 2022

Vì sao cần tách sheet thành từng file trong Excel?

Trên một tệp Excel Bạn có thể tạo nhiều sheet để đễ theo dõi và chuyển đổi giữa các thông tin liên quan tới nhau. nhưng nhiều sheet cũng làm tăng dung lượng và khiến mở tệp lâu hơn, nhất là khi bạn sử dụng thêm các add ins hay các code macro VBA.

Cách tách sheet thành file trong Excel

Bước 1:

Trước hết Excel của bạn phải hiện tab Developer trước. Sau đó mở file Excel mong muốn tách các sheet. dưới đây sẽ có 3 sheet với các tên sheet không giống nhau.

Bước 2:

Nhấn tổ hợp phím Alt + F11 để mở trình VBA trên Excel, hoặc nhấn vào tab Developer rồi nhấn Visual Basic.

Bước 3:

Chuyển sang giao diện thông tin mới người dùng nhấn vào tab Insert rồi chọn vào phần Module để mở bố cục và giao diện nhập code VBA.

Tiếp đến bạn hãy sao chép đoạn mã phía dưới vào bố cục và giao diện.

Sub Splitbook()'Updateby20140612Dim xPath As StringxPath = Application.ActiveWorkbook.PathApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor Each xWs In ThisWorkbook.Sheets xWs.Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xls" Application.ActiveWorkbook.Close FalseNextApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

Bước 4:

nhấn vào biểu tượng Run bên trên thanh công cụ để chạy hoặc nhấn phím F5 trên bàn phím để chạy mã code.

Khi công đoạn chạy code coi như hoàn tất, bạn mở thư mục lưu tệp Excel gốc và sẽ thấy từng tệp sheet hiển thị tại đây. Từng tên sheet được chuyển thành từng tên tệp Excel nên người dùng dễ dàng trong việc quản lý tệp. tất cả các bí quyết dùng ở từng sheet vẫn được giữ nguyên.

Khi mở file sheet nếu có thông cáo như hình thì nhấn Yes để tiếp tục mở thông tin.

Cách tách Sheet thành file trong Excel bằng code VBA

+ Bước 1: Để làm thủ thuật Excel tách hàng loạt Sheet mà vẫn giữ nguyên các công thức, cùng các hàm Add ins, hay mã VBA (nếu có). Bạn click mở tab Developer (xem cách hiện tab Developer trên Excel) => và chọn Visual Basic như hình bên dưới.

Hoặc nhấn tổ hợp phím Alt + F11 để mở trình VBA trên Excel ra.

[Tuts] Cách tách Sheet thành từng file Excel riêng biệt trong Excel

+ Bước 2: Tại hộp thoại Microsoft Visua Basic for Applications, bạn click mở thực đơn Insert => rồi chọn Module.

+ Bước 3: Và bạn hãy copy đoạn mã Code sau:

Sub tachsheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim sh As Worksheet
For Each sh In Worksheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & “” & sh.Name, 51
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

coi thêm: hướng dẫn gộp nhiều ô thành 1 ô trong Excel không bị mất dữ liệu

Hoặc code sau:

Sub 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

Tổng kết

Như Vậy coi như là bài chỉ dẫn tách sheet thành file trong Excel của Blogphanmem.vn đến Nó là hết rồi. Các bước để bạn thực hiện thật đơn giản đúng không nào!