Nguồn bài viết: [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, nó cũng gây ra sự cố 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, 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 vẫn được giữ nguyên mà không bị thay đổi.
Đọc thêm:
Dưới đây là ví dụ về tệp Excel, với tệp Bảng điểm bao gồm 6 Trang tính khác nhau.
Cách chia hàng loạt Trang tính thành tệp Excel bằng 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.
+ Bước 2: Tại
hộp thoại Microsoft Visua Basic for Applicationsbạn bấm để mở menu Insert => sau đó chọn Module.
+ Bước 3: Và sao chép mã sau:
Trang tính phụ []
Application.ScreenUpdating = Sai
Application.DisplayAlerts = False
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:
Sub Splitbook []
‘Updateby20140612’
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = Sai
Application.DisplayAlerts = False
Đối với mỗi xW trong ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Tên tệp: = 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.
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.
Phần kết
Được rồi, vậy là mình vừa hướng dẫn các bạn Làm thế nào để chia Trang tính thành các tệp Excel riêng biệt? với mã VBA rồi.
Rất nhanh chóng và đơn giản phải không?
Chúc may mắn !
CTV: Lương Trung – congthucexcel.com
Bài viết đạt: 4,5 / 5 sao – [Có 2 lượt đánh giá]
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!
Những bài viết liên quan : Thủ Thuật Excel
Nguồn : congthucexcel.com
Mọi sự sao chép, trích dẫn vui lòng ghi rõ nguồn: congthucexcel.com
from congthucexcel.com
//ift.tt/lcP53tE
via Congthucexcel.com