Wiki

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

Làm việc với nhiều Trang tính trên một tệp Excel giúp chúng ta tăng cường sự tương tác và kết nối giữa các bảng tính cần tính toán. Tuy nhiên, đó cũng là một trở ngại lớn nếu tệp Excel của bạn quá lớn và có quá nhiều Trang tính.

Và nếu bạn đang cần Tách các Trang tính này thành các tệp Excel riêng biệt Để tăng tốc độ mở file, giảm dung lượng file khi bạn phải kéo Add ins, hoặc lưu VBA thì đây là bài viết dành cho bạn. Vì trong bài viết này, mình sẽ chia sẻ với các bạn một thủ thuật nhỏ trong việc tách hàng loạt Sheets trên một tập tin Excel, và lưu dưới dạng tên Sheet với mã Excel VBA Macro.

Sau khi tách xong, tên của các Trang tính sẽ được chuyển thành tên tệp, và các công thức trong Trang tính sẽ không thay đổi mà không bị thay đổi.

Đọc thêm:

Dưới đây là ví dụ về tệp Excel, với tệp Thẻ điểm bao gồm 6 Trang tính khác nhau.

code-tach-sheet-in-excel (1)

Cách chia hàng loạt Trang tính thành tệp Excel với mã VBA

+ Bước 1: Để chia hàng loạt Trang tính trong khi vẫn giữ nguyên công thức, hãy Thêm hàm in hoặc mã VBA (nếu có). Bạn bấm vào để mở tab Developer (xem cách hiển thị tab Nhà phát triển 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ở chương trình VBA trên Excel.

code-tach-sheet-in-excel (2)

+ Bước 2: Tại hộp thoại Microsoft Visua Basic for Applications, bạn bấm để mở menu Insert => sau đó chọn Module.

code-tach-sheet-in-excel (3)

+ Bước 3: Và sao chép mã sau:

Trang tính phụ ()
Application.ScreenUpdating = Sai
Application.DisplayAlerts = Sai
Dim sh As Worksheet
Đối với mỗi sh trong Worksheets
sh.Copy
ActiveWorkbook.SaveAsThisWorkbook.Path & “” & sh.Name, 51
ActiveWorkbook.Close
tiếp theo
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Kết thúc Sub

Hoặc mã sau:

Sổ tách con ()
‘Updateby20140612’
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = Sai
Application.DisplayAlerts = Sai
Đối với mỗi xW trong ThisWorkbook.Sheets
xWs.Copy
Tên tệp Application.ActiveWorkbook.SaveAs: = xPath & “” & xWs.Name & “.xls”
Application.ActiveWorkbook. Đóng Sai
tiếp theo
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Kết thúc Sub

+ Bước 4: Dán vào hộp thoại Module (Code) => sau đó nhấn Runhoặc nhấn. Chìa khóa F5 trên bàn phím để chia Trang tính thành các tệp Excel riêng biệt.

code-tach-sheet-in-excel (4)

Và đây là kết quả của thư mục sau khi tách Sheet thành các tệp Excel có định dạng *.xlsx.

code-tach-sheet-in-excel (6)

Phần kết

Được rồi, vậy là mình vừa hướng dẫn các bạn cách chia Trang tính thành các tệp Excel riêng biệt với mã VBA.

Rất nhanh chóng và đơn giản phải không?

Chúc may mắn !

CTV: Lương Trung – phanmemdownload.com

Ghi chú: Bài viết này có hữu ích cho bạn không? Đừng quên đánh giá bài viết, thích và chia sẻ nó với bạn bè và gia đình của bạn!

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

Back to top button