Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chia sổ làm việc để tách các tệp Excel trong Excel?

Bạn có thể cần phải chia một sổ làm việc lớn để tách các tệp Excel với việc lưu từng trang của sổ làm việc dưới dạng một tệp Excel riêng lẻ. Ví dụ: bạn có thể chia sổ làm việc thành nhiều tệp Excel riêng lẻ và sau đó giao từng tệp cho người khác xử lý. Bằng cách đó, bạn có thể nhờ một số người xử lý dữ liệu cụ thể và giữ an toàn cho dữ liệu của bạn. Bài viết này sẽ giới thiệu các cách chia sổ làm việc lớn để tách các tệp Excel dựa trên mỗi trang tính.

  1. Tách sổ làm việc để tách các tệp Excel bằng cách sao chép và dán
  2. Tách sổ làm việc để tách các tệp Excel bằng tính năng Di chuyển hoặc Sao chép
  3. Tách sổ làm việc để tách các tệp Excel bằng mã VBA
  4. Chia sổ làm việc để tách các tệp Excel / PDF / CSV / TXT với Kutools cho Excel một cách dễ dàng

Tách sổ làm việc để tách các tệp Excel bằng cách sao chép và dán

Thông thường, sử dụng Sao chép lệnh và Dán lệnh có thể lưu sổ làm việc dưới dạng tệp Excel riêng biệt theo cách thủ công. Trước hết, chọn toàn bộ trang tính mà bạn muốn lưu thành một tệp riêng biệt, tạo một sổ làm việc mới, rồi dán nó vào sổ làm việc mới, cuối cùng sẽ lưu nó.

Đây là một cách dễ sử dụng nếu bạn chỉ cần chia một vài trang tính thành các tệp riêng biệt. Tuy nhiên, việc chia nhỏ nhiều trang tính bằng cách sao chép và dán thủ công sẽ rất tốn thời gian và tẻ nhạt.


Tách sổ làm việc để tách các tệp Excel bằng tính năng Di chuyển hoặc Sao chép

Phương pháp này sẽ giới thiệu tính năng Di chuyển hoặc Sao chép để di chuyển hoặc sao chép các trang tính đã chọn sang một sổ làm việc mới và lưu dưới dạng một sổ làm việc riêng biệt. Vui lòng làm như sau:

1. Chọn trang tính trong thanh tab Trang tính, nhấp chuột phải và chọn Di chuyển hoặc sao chép từ menu ngữ cảnh. Xem ảnh chụp màn hình:

Chú thích: Giữ Ctrl chính, bạn có thể chọn nhiều trang tính không liền kề bằng cách nhấp vào từng trang một trong thanh tab Trang tính; giữ sự thay đổi , bạn có thể chọn nhiều trang tính liền kề bằng cách nhấp vào trang tính đầu tiên và trang tính cuối cùng trong thanh tab Trang tính.

2. Trong hộp thoại Di chuyển hoặc Sao chép, hãy chọn (sách mới) từ Đặt danh sách thả xuống, kiểm tra Tạo một bản sao và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

3. Bây giờ tất cả các trang tính đã chọn được sao chép sang một sổ làm việc mới. Nhấp chuột Tập tin > Lưu để lưu sổ làm việc mới.

Nhanh chóng chia sổ làm việc để tách các tệp Excel / PDF / TXT / CSV trong Excel

Thông thường, chúng ta có thể chia sổ làm việc thành các tệp Excel riêng lẻ với Di chuyển hoặc sao chép tính năng trong Excel. Nhưng Kutools cho Excel's Chia sổ làm việc tiện ích có thể giúp bạn dễ dàng chia sổ làm việc và lưu từng trang tính dưới dạng tệp PDF / TEXT / CSV hoặc sổ làm việc riêng biệt trong Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày!
ad chia sổ làm việc excel

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

Tách sổ làm việc để tách các tệp Excel bằng mã VBA

Mã VBA sau có thể giúp bạn nhanh chóng chia nhiều trang tính của sổ làm việc hiện tại để tách các tệp Excel, vui lòng thực hiện như sau:

1. Tạo một thư mục mới cho sổ làm việc mà bạn muốn tách, vì các tệp Excel được chia sẽ nằm trong cùng một thư mục với sổ làm việc chính này.

2. Giữ ALT + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

VBA: Tách sổ làm việc thành nhiều sổ làm việc và lưu trong cùng một thư mục

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 & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. Nhấn nút F5 phím để chạy mã này. Và sổ làm việc được chia để tách các tệp Excel trong cùng một thư mục với sổ làm việc gốc. Xem ảnh chụp màn hình:

Chú thích: Nếu một trong các trang tính có cùng tên với sổ làm việc, VBA này không thể hoạt động.

Chia sổ làm việc để tách các tệp Excel / PDF / CSV / TXT với Kutools cho Excel một cách dễ dàng

Nếu bạn có Kutools cho Excel đã cài đặt, nó Chia sổ làm việc công cụ có thể chia nhiều trang tính thành các tệp Excel riêng biệt một cách thuận tiện và nhanh chóng chỉ với vài cú nhấp chuột.

Kutools cho Excel - Bao gồm hơn 300 công cụ tiện dụng cho Excel. Bản dùng thử miễn phí đầy đủ tính năng trong 30 ngày, không cần thẻ tín dụng! Get It Now

1. Sau khi cài đặt Kutools cho Excel, Click Kutools Plus > Chia sổ làm việc , xem ảnh chụp màn hình:

2. Trong Chia sổ làm việc hộp thoại, hãy thực hiện các thao tác sau:
(1) Tất cả các tên trang tính được kiểm tra theo mặc định. Nếu bạn không muốn chia một số trang tính, bạn có thể bỏ chọn chúng;
(2) Kiểm tra Lưu một loại Tùy chọn;
(3) Từ Save as type thả xuống, chọn một loại tệp bạn muốn tách và lưu.
(4) Sau đó nhấp vào chẻ .

Chú thích: 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 cái hộp.

3. Trong hộp thoại Duyệt qua Thư mục, vui lòng chỉ định thư mục đích để lưu các tệp riêng biệt được chia nhỏ và nhấp vào OK .

Bây giờ, các trang tính đã kiểm tra được lưu dưới dạng sổ làm việc mới được phân tách. 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:

Kutools cho Excel's Chia sổ làm việc công cụ giúp dễ dàng chia sổ làm việc đang hoạt động thành các tệp Excel riêng lẻ (một tệp chứa một trang tính), tệp CSV, tệp TXT hoặc tệp PDF khi bạn cần. Bạn có thể đặt để bỏ qua tất cả các trang tính trống và ẩn. Có một bản dùng thử miễn phí!


Demo: Tách hoặc lưu từng trang tính của một sổ làm việc dưới dạng tệp excel / txt / csv / pdf riêng biệt


Kutools cho Excel bao gồm hơn 300 công cụ tiện dụng cho Excel, miễn phí dùng thử không giới hạn trong 30 ngày. Tải xuống và dùng thử miễn phí ngay bây giờ!

Các bài liên quan:


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

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Super Formula Bar (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
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!
officetab dưới cùng
Nhận xét (112)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có dữ liệu trong 4 trang tính khác nhau. Sheet1 được đặt tên là "A", Sheet2 được đặt tên là "B", Sheet3 được đặt tên là "C" và Sheet4 được đặt tên là "D". Cần chia dữ liệu thành các sổ làm việc khác nhau và mỗi trang tính chỉ được có 25 hàng. Tên tệp nên được đặt là Sheet1 A.xls, Sheet2 A.xls nếu dữ liệu được sao chép từ Trang tính A. Khi Trang tính A trở nên trống, nó phải sao chép dữ liệu từ Trang tính B và phải tiếp tục đánh số Trang tính từ lần trước Trang tính 3 B.xls.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Khi tôi "Tách sổ làm việc để tách các tệp Excel bằng mã VBA", nó hoạt động như mơ nhưng không giữ định dạng như các ô đã hợp nhất và căn chỉnh ô trong bảng tính mới. Có thứ gì tôi có thể thêm để định dạng được giữ nguyên như bản gốc không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã hoạt động như một sự quyến rũ! Có, không phải tất cả các định dạng đều được giữ lại. Không có vấn đề, mặc dù. Đối với tôi, tất cả các ô được hợp nhất trong một bảng trở thành chưa được hợp nhất. Thật đơn giản để chọn bảng gốc, định dạng họa sĩ, đánh dấu bảng đã sao chép và thì đấy, tốt như mới. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cột A Địa chỉ IP Cột B Tên IP Cột C Tỷ lệ Pinging IP Đúng (Đó là lệnh Pinging Trạng thái) Cột D Tỷ lệ Pinging IP Sai (Đó là lệnh Trạng thái Ping) Danh sách tên ip và ip này để định dạng excel & trạng thái là cùng một định dạng excel ( đó là đúng hay sai Trạng thái)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã tuyệt vời - đã lưu trong ngày cho tôi. Cảm ơn đã đăng bài viết.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang gặp sự cố khi thêm mã để lưu các tệp phân tách dưới dạng ReadOnly. Tại sao điều này không hoạt động hoặc làm thế nào để làm điều này? Sub Splitbook () MyPath = ThisWorkbook.Path For Each sht In ThisWorkbook.Sheets sht.Copy ActiveSheet.Cells.Copy ActiveSheet.Cells.PasteSpecial Paste: = xlPasteValues ​​ActiveSheet.Cells.PasteSpecial Paste: = xlPasteFormats ActiveWorkbook.SaveAs _ Filename: = My & "\" & sht.Name & ".xls", Mật khẩu: = "", WriteResPassword: = "", ReadOnlyRecommended: = False, ActiveWorkbook. Đóng savechanges: = False Next sht End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cơ sở thực sự tuyệt vời .., tuyệt vời ... wow ..
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kịch bản tuyệt vời. Nó phù hợp với tôi như bất cứ điều gì. Thanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tập lệnh hữu ích, nhưng tôi đang tìm kiếm các bước tiếp theo, để tự chọn một tiêu chí từ excel và tự động điền vào nhiều tệp
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn phương pháp 1 cực kỳ hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn! Tiết kiệm cho tôi rất nhiều nỗ lực thủ công!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hướng dẫn VBA đã được "tại chỗ"! ... ngay cả đối với một người mới! Làm việc rất tốt!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất hữu ích! Cám ơn vì đã chia sẻ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giúp đỡ nhiều!!! cực kỳ dễ dàng và hữu ích :-)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đã sử dụng cái này và nó đã hoạt động. Đúng thứ tôi cần. Thanks
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động tuyệt vời, cảm ơn. Tôi đã tạo nó như một phần bổ trợ và đã cài đặt nó. Làm cách nào để bây giờ tôi có thể chạy nó bất cứ khi nào tôi muốn (mà không cần phải sao chép và dán mỗi lần)? Có nút nào tôi nhấn hoặc tên chức năng tôi sử dụng không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lỗi hiển thị ở dòng 8 .... xws cpy là lỗi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hoạt động với tôi sau khi tôi loại bỏ Option Explicit, do đó, biến cần được xác định. Tuy nhiên, tôi muốn biết biến này nên được định nghĩa là gì, vì tôi đánh giá cao tùy chọn Option Explicit :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cả mã này & KUtools đều hiển thị lỗi sau khi chuyển đổi 222 tệp và sau khi 222 tệp đều ngừng hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dear Sir, Bạn có thể vui lòng gửi cho tôi thông tin chi tiết về cách mã hóa để tách s
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể làm theo cách mã hóa dưới đây. Mã hóa VBA cho các trang chia nhỏ Alt + f11 Insert-module-f5 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
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Trang tính là sản phẩm của báo cáo bảng tổng hợp, các tệp mới được tạo bởi mã vẫn giữ kết nối với nguồn dữ liệu và có thể thay đổi được. có thể thực hiện mã để ngắt kết nối bảng tổng hợp hoặc thêm bản sao của tất cả từng trang tính & quá khứ dưới dạng các giá trị để loại bỏ kết nối không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thưa ông Sanjay, tôi đã thử với các mã nó chỉ hoạt động cho một vài trang tính nhưng tệp tôi đang cố gắng tách có gần 466 trang tính. Tôi có thể biết mã cho nó không? Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có thể lưu tập lệnh mô-đun của bạn vào Sổ làm việc Macro CÁ NHÂN để sử dụng trong tương lai không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể vui lòng cho tôi biết rằng làm thế nào tôi có thể gửi hàng loạt email với tệp đính kèm được cá nhân hóa trong triển vọng .. Regrads, Yasir
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Yasir, Bạn không thể gửi tệp đính kèm được cá nhân hóa trong phối thư với outlook. Có, ít công cụ bên ngoài có ở đó nhưng chúng rất tốn kém và cũng không đáng tin cậy. Bạn có thể làm điều này với Mozilla Thunderbird. Chỉ cần tải xuống phần bổ sung trộn thư và bạn có thể làm điều này.
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất