Mẹo: Các ngôn ngữ khác được Dịch bởi Google. Bạn có thể ghé thăm English phiên bản của liên kết này.
Đăng nhập
x
or
x
x
Ghi danh
x

or

Làm thế nào để chia một bảng tính để Excel riêng biệt tập tin trong Excel?

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

  1. Chia một bảng tính để tách các tệp Excel với việc sao chép và dán
  2. Tách một 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. Chia một bảng tính để tách các tệp Excel với mã VBA
  4. Chia một bảng tính để tách các tệp Excel / PDF / CSV / TXT với Kutools for Excel dễ dàng

Nhanh chóng phân chia một 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 một 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 Chia Workbook tiện ích có thể giúp bạn dễ dàng phân chia một sổ làm việc và lưu từng bảng tính dưới dạng tệp PDF / TEXT / CSV riêng biệt hoặc sổ làm việc trong Excel. Bản dùng thử miễn phí đầy đủ 60-day!
bảng tính phân chia quảng cáo excel

Kutools cho Excel - Bao gồm nhiều hơn các công cụ Excel tiện dụng 300. Tính năng dùng thử miễn phí 60-ngày, không cần thẻ tín dụng! Nhận ngay bây giờ!


Chia một bảng tính để tách các tệp Excel với việc 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 một bảng tính như một tệp Excel riêng bằng tay. Thứ nhất, chọn toàn bộ bảng tính mà bạn muốn lưu dưới dạng một tệp riêng, tạo một bảng tính mới và dán nó vào bảng tính mới, ở cuối lưu nó.

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


Tách một 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 đã chọn vào một sổ làm việc mới và lưu thành một sổ làm việc riêng. Hãy làm như sau:

1. Chọn các 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ừ trình đơn 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 không liền kề bằng cách nhấp từng tờ một trong thanh tab Trang tính; giữ sự thay đổi chính, bạn có thể chọn nhiều trang liền kề bằng cách nhấp vào trang đầu tiên và trang cuối cùng trong thanh tab Trang tính.

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

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


Chia một bảng tính để tách các tệp Excel với mã VBA

Sau đây mã VBA có thể giúp bạn nhanh chóng chia nhiều bảng tính của bảng tính hiện tại sang các tệp Excel riêng biệt, vui lòng làm như sau:

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

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

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

VBA: Chia một 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à bảng tính được chia thành các tệp Excel riêng biệt trong cùng một thư mục với bảng tính gốc. Xem ảnh chụp màn hình:

chú thích: Nếu một trong những tờ có cùng tên với bảng tính, VBA này không thể hoạt động.


Chia một bảng tính để tách các tệp Excel / PDF / CSV / TXT với Kutools for Excel dễ dàng

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

Kutools cho Excel - Bao gồm nhiều hơn các công cụ Excel tiện dụng 300. Tính năng dùng thử miễn phí 60-ngày, không cần thẻ tín dụng! Nhận ngay bây giờ!

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

2. Trong Chia Workbook hộp thoại, thực hiện các thao tác sau:
(1) Tất cả các tên bảng tính được kiểm tra theo mặc định. Nếu bạn không muốn tách một số bảng 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 chia và lưu.
(4) Sau đó nhấn chẻ nút.

chú thích: Nếu bạn muốn tránh chia tách các bảng tính ẩn hoặc trống, bạn có thể kiểm tra Bỏ qua các bảng tính ẩn or Bỏ qua bảng tính trống cái hộp.

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

Bây giờ các bảng tính đã kiểm tra được lưu dưới dạng sổ làm việc riêng biệt mới. Mỗi sổ làm việc mới được đặt tên với tên bảng tính ban đầu. Xem ảnh chụp màn hình:

Kutools cho Excel's Chia Workbook công cụ giúp dễ dàng phân chia sổ làm việc 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 bảng tính trống và ẩn. Dùng thử miễn phí!


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

Trong video này, Kutools tab và Kutools Plus được thêm bởi Kutools cho Excel. Nếu cần nó, xin vui lòng bấm vào đây. để có một bản dùng thử miễn phí 60 ngày mà không bị giới hạn!


Các bài liên quan:



Các công cụ sản xuất được đề nghị

Tab Office

sao vàng1 Mang các tab tiện dụng vào Excel và các phần mềm Office khác, giống như Chrome, Firefox và Internet Explorer mới.

Kutools cho Excel

sao vàng1 Kinh ngạc! Tăng năng suất của bạn trong 5 phút. Không cần bất kỳ kỹ năng đặc biệt, tiết kiệm được hai giờ mỗi ngày!

sao vàng1 300 Các tính năng mới cho Excel, Làm cho Excel dễ dàng và mạnh mẽ:

  • Hợp nhất ô / Hàng / Cột mà không mất dữ liệu.
  • Kết hợp và Hợp nhất nhiều trang tính và Workbooks.
  • So sánh các dãy, sao chép nhiều dãy, chuyển đổi văn bản sang ngày, đơn vị và chuyển đổi tiền tệ.
  • Đếm theo màu sắc, Paging Subtotals, sắp xếp nâng cao và Super Filter,
  • Thêm / Chèn / Xóa / Văn bản / Định dạng / Liên kết / Nhận xét / Tập tin / Workheets Công cụ ...

Ảnh chụp màn hình của Kutools cho Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Judy Smith · 9 months ago
    Please disregard my previous post. I have resolved my issue.
  • To post as a guest, your comment is unpublished.
    Judy Smith · 9 months ago
    I am using the split data into worksheets based on a column with 27 items in that column. The results are 54 worksheets 2 for each item. The only difference I can see is based on one of the columns in the range. For example:

    Once the split has occured, John Doe has 2 worksheets, one named John Doe and another named Sheet32. Each sheet has information for John Doe, but based on a column "Status" (Billed, Open Order, Salesforce), the information is split. The named worksheet has Billed & Open Order information and the Sheet32 has Salesforce information.


    Any idea what I am doing wrong?


  • To post as a guest, your comment is unpublished.
    Sreejith · 10 months ago
    That really helped. Thank you.
  • To post as a guest, your comment is unpublished.
    Gabriel · 1 years ago
    With the addition of code from comment below it works realy nice.
  • To post as a guest, your comment is unpublished.
    Paulo Corcino · 1 years ago
    Sub Splitbook()
    'Updateby20140612
    Dim xPath As String
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim xWs As Worksheet


    xPath = Application.ActiveWorkbook.Path
    Set Sourcewb = ActiveWorkbook

    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    End With


    ' For Each xWs In ThisWorkbook.Sheets
    For Each xWs In Sourcewb.Worksheets

    If xWs.Visible = -1 Then
    xWs.Copy
    Set Destwb = ActiveWorkbook
    If Destwb.Sheets(1).ProtectContents = False Then
    With Destwb.Sheets(1).UsedRange
    .Cells.Copy
    .Cells.PasteSpecial xlPasteValues
    .Cells(1).Select
    End With
    Application.CutCopyMode = False
    End If
    With Destwb
    .SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    .Close False
    End With
    End If
    Next

    With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    End With

    MsgBox "You can find the files in " & xPath

    End Sub