Để tách nhiều sheet trong một file Excel thành nhiều file riêng biệt bằng Visual Basic, bạn có thể làm theo các bước sau:
- Mở file Excel chứa các sheet mà bạn muốn tách.
- Nhấn tổ hợp phím “Alt + F11” để mở trình soạn thảo Visual Basic for Applications (VBA).
- Trong trình soạn thảo VBA, chọn “Insert” và chọn “Module” để tạo một module mới.
- Trong module mới, hãy sao chép và dán mã 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
- Thay thế
"xPath"
bằng đường dẫn thư mục mà bạn muốn lưu các file Excel mới hoặc giữ nguyên thì sẽ lưu tại vị trí file hiện tại. - Nhấn “F5” hoặc chọn “Run” để chạy mã VBA.
- Các sheet trong file Excel sẽ được tách thành các file Excel riêng biệt và lưu trong thư mục bạn đã chỉ định.
Chú ý rằng trước khi chạy mã VBA, bạn nên sao lưu file Excel gốc để đảm bảo an toàn dữ liệu.
- BỎ RA HƠN 90 NGHÌN TỶ ĐỂ SỞ HỮU RONALDO LN +8 LIỆU CÓ XỨNG ĐÁNG?
- HƯỚNG DẪN UPDATE WIN 11 TRÊN MÁY TÍNH ĐƠN GIẢN
- MƯA LỚN TỪ SÁNG SỚM NGÀY 28/10/2024 TẠI KHU VỰC NAM BỘ
- KHU VỰC CÓ THỂ BỊ ẢNH HƯỞNG BỞI BẢO SỐ 6 (BÃO TRÀ MI)
- LÃI SUẤT LIÊN NGÂN HÀNG KỲ HẠN 6 THÁNG TĂNG
- Microsoft Office 2016 Full Crack không quảng cáo, không mật khẩu
- KĨ THUẬT ĐẬP THỂ THÀNH CÔNG DỄ DÀNG TRONG FIFA ONLINE 4
- Cùng ngắm nhìn tất cả nhân vật trong game Black Myth: Wukong – Một Thế Giới Thần Thoại Sôi Động
Để lại một phản hồi