File Excel của bạn có quá nhiều sheet gây khó khăn cho bạn trong việc mở nhiều file Excel cùng lúc để kiểm soát dữ liệu. Đó là chưa kể đến việc làm tăng dung lượng file Excel đó lên. Hoặc đơn giản là bạn đang làm việc theo nhóm, muốn chia sẻ các công việc cho mọi người cùng làm. Việc tách các sheet không làm ảnh hưởng đến nội dung của từng sheet, từng file được tách ra đều được đặt tên đúng với tên sheet các bạn đã đặt. Sau đây hãy cùng với Hiếu thử xem làm như thế nào nhé
Cách tách Sheet thành nhiều file Excel riêng biệt
Bước 1: Các bạn nhấn tổ hợp phím ALT +F11 để hiện cửa sổ Microsoft visual basic for applications.
Bước 2: Các bạn nhấn vào tab Insert rồi chọn Module sẽ hiện giao diện để nhập code VBA.
Bước 3: Các bạn hãy sao chép đoạn mã dưới đây và Paste vào khung cửa sổ như hình trên để nhập Code.
Sub Splitbook() 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
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 chạy xong đoạn mã Code, các bạn hãy vào thư mục chứa File Excel sẽ thấy các Sheet đã được tách thành các file excel riêng biệt như hình.
Các bạn thấy không chỉ cần vài thao tác cơ bản chúng ta đã có thể hoàn thành những việc mà có khi chúng ta phải mất cả giờ để làm. Công nhận Excel nhiều cái kỳ diệu thật
