Bỏ qua nội dung chính

Làm cách nào để xuất và lưu từng trang tính dưới dạng sổ làm việc mới riêng biệt trong Excel?

Giả sử bạn muốn xuất và lưu một hoặc một số trang tính làm sổ làm việc mới, bạn sẽ xử lý như thế nào? Thông thường, bạn có thể sao chép từng trang tính và dán vào sổ làm việc mới. Nhưng ở đây chúng tôi mang đến cho bạn một số thủ thuật hữu ích để đối phó với nó:

Xuất và lưu trang tính dưới dạng sổ làm việc mới bằng lệnh Di chuyển hoặc Sao chép

Xuất và lưu trang tính dưới dạng sổ làm việc mới với mã VBA

Xuất và lưu trang tính dưới dạng sổ làm việc mới với Kutools cho Excel ý kiến ​​hay3


mũi tên màu xanh bong bóng bên phải Xuất và lưu trang tính dưới dạng sổ làm việc mới bằng lệnh Di chuyển hoặc Sao chép

Sử dụng Di chuyển hoặc sao chép lệnh sẽ giúp bạn xuất hoặc sao chép một hoặc một số trang tính sang một sổ làm việc mới một cách nhanh chóng.

Bước 1: Chọn tên trang tính trong thanh tab. Bạn có thể chọn nhiều bằng cách nhấn giữ Ctrl phím hoặc thay đổi Chìa khóa.

Bước 2: Nhấp chuột phải vào tên trang tính và nhấp vào Di chuyển hoặc sao chép từ menu ngữ cảnh.
doc xuất tờ 1

Bước 3: Trong Di chuyển hoặc sao chép hộp thoại, chọn (sách mới) mục từ danh sách thả xuống của Di chuyển các trang tính đã chọn vào sách.

doc xuất tờ 2

Bước 4: Sau đó nhấp vào OK, bây giờ bạn đã chuyển sang sổ làm việc mới với các trang tính được xuất hoặc sao chép, hãy nhấp vào Tập tin > Lưu để lưu sổ làm việc mới.

Lưu ý: Trong tạp chí Di chuyển hoặc sao chép hộp thoại, có một Tạo một bản sao Lựa chọn. Nếu bạn không kiểm tra nó, nó sẽ di chuyển các trang tính đã chọn ra khỏi sổ làm việc gốc; nếu kiểm tra nó, nó sẽ sao chép các trang tính đã chọn.


Nhanh chóng chia nhiều trang tính thành sổ làm việc riêng biệt trong Excel

Trong Microsoft Excel, bạn có thể lưu hoặc tách trang tính từ một sổ làm việc dưới dạng tệp Excel mới bằng cách sao chép và dán trang tính này vào một sổ làm việc mới. Có vẻ rắc rối, nếu bạn muốn chia từng sheet / worksheet của một sổ làm việc lớn thành các tệp Excel, txt, csv, pdf riêng biệt. Nhưng vơi Kutools cho Excel'S Chia sổ làm việc tiện ích, bạn có thể nhanh chóng đối phó với nó.  Nhấp để dùng thử miễn phí 30 ngày với đầy đủ các tính năng!
doc chia sổ làm việc 1
 
Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày.

mũi tên màu xanh bong bóng bên phải Xuất và lưu trang tính dưới dạng sổ làm việc mới với mã VBA

Đoạn mã sau đây sẽ xuất mọi trang tính hiển thị trong sổ làm việc mới và lưu sổ làm việc với tên của trang tính ban đầu trong một thư mục mới được tạo theo cùng đường dẫn với sổ làm việc đang hoạt động. Vui lòng thực hiện theo các bước sau:

Bước 1: Giữ phím ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

Bước 2: Nhấp Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun:

VBA: Xuất và lưu trang tính dưới dạng sổ làm việc mới trong một thư mục mới.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

Bước 3: Nhấn F5 phím để chạy mã này. Và một hộp nhắc sẽ bật lên để cho bạn biết vị trí của các sổ làm việc được xuất mới và tất cả các trang tính của sổ làm việc gốc đã được xuất sang một số sổ làm việc riêng biệt mới có tên là các trang tính gốc trong một thư mục cụ thể mới. Xem ảnh chụp màn hình:

doc xuất tờ 7

mũi tên màu xanh bong bóng bên phải Xuất và lưu trang tính dưới dạng sổ làm việc mới với Kutools cho Excel

Nếu bạn có nhiều trang tính cần được lưu dưới dạng sổ làm việc riêng biệt, phương pháp đầu tiên không thể là một lựa chọn tốt. Và mã VBA có thể hơi phức tạp đối với người mới bắt đầu sử dụng Excel. Ở đây bạn có thể sử dụng Chia sổ làm việc tiện ích của Kutools cho Excel để nhanh chóng và dễ dàng xuất và lưu từng trang tính của một sổ làm việc để tách sổ làm việc mới.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

Bước 1: Nhấp Kutools Plus > Bảng tính > Chia sổ làm việc…. Xem ảnh chụp màn hình:
doc xuất tờ 3

Bước 2: Trong Chia sổ làm việc hộp thoại, làm như dưới đây:

doc xuất tờ 4
1: tất cả các tên trang tính đã được chọn theo mặc định, nếu bạn không muốn tách một số trang tính, bạn có thể bỏ chọn chúng;


2: Nếu bạn muốn tránh chia nhỏ các trang tính bị ẩn hoặc trống, bạn có thể kiểm tra Bỏ qua trang tính ẩn or Bỏ qua trang tính trống.);


3: và bạn cũng có thể kiểm tra Chỉ định lưu định dạng, và để chọn tách các trang tính, sau đó lưu dưới dạng tệp văn bản, tệp pdf hoặc tệp csv, trong defualt, nếu bạn không chọn tùy chọn này, nó sẽ chia trang tính và lưu dưới dạng sổ làm việc.

Bước 3: Sau đó nhấp vào chẻ và chọn thư mục mà bạn muốn đặt các sổ làm việc mới vào. Xem ảnh chụp màn hình:
doc xuất tờ 6

Bước 4: Và sau đó nhấp vào OK, sau đó mỗi trang tính được kiểm tra trong Chia sổ làm việc hộp thoại được xuất và lưu dưới dạng sổ làm việc riêng lẻ. Mỗi sổ làm việc mới được đặt tên với tên trang tính ban đầu. Xem ảnh chụp màn hình:
doc xuất tờ 5

Nhấp để biết thêm thông tin về công cụ Split Workbook này.

mũi tên màu xanh bong bóng bên phải Xuất và lưu từng trang tính dưới dạng sổ làm việc mới


Nhanh chóng chia dữ liệu thành nhiều trang tính dựa trên cột hoặc hàng cố định trong Excel

Giả sử bạn có một trang tính có dữ liệu từ cột A đến G, tên nhân viên bán hàng nằm trong cột A và bạn cần tự động chia dữ liệu này thành nhiều trang tính dựa trên cột A trong cùng một sổ làm việc và mỗi nhân viên bán hàng sẽ được chia thành một bảng tính. Kutools cho Excel'S Ngày chia tách tiện ích có thể giúp bạn nhanh chóng chia dữ liệu thành nhiều trang tính dựa trên cột đã chọn như ảnh chụp màn hình bên dưới được hiển thị trong Excel.  Nhấp để dùng thử miễn phí 30 ngày đầy đủ tính năng!
doc chia dữ liệu 2
 
Kutools cho Excel: với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày.

Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

tab kte 201905


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations