Để 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:
![](https://trannghiait.com/wp-content/uploads/2023/10/image-25.png)
- 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.
![](https://trannghiait.com/wp-content/uploads/2023/10/image-26.png)
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.
- 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
- Cùng ngắm nhìn Art 3D China làm các nhân vật trong game Black Myth: Wukong
- WUKONG LÀ GÌ? CÁCH CHƠI BLACK MYTH: WUKONG?
- Tổng hợp chi tiết các nút đá và phím tắt trong FIFA ONLINE 4
- Hướng dẫn cài đặt fifa online 4 trên điện thoại cực đơn giản
- EXCEL CƠ BẢN CHO DÂN VĂN PHÒNG
Để lại một phản hồi