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

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á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 (62)
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
cảm ơn rất nhiều, hoạt động rất tốt và dễ dàng.
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 Tôi thích mã Có thể chỉ lưu sổ làm việc mới mà không có thông tin ngày tháng. Vì vậy, khi tôi lưu lại các trang tính trong sổ làm việc trước đó, tôi sẽ có tùy chọn ghi đè các thay đổi thay vì tạo một thư mục ghi ngày tháng khác? Ngoài ra, nhưng không quá quan trọng, làm thế nào tôi có thể sử dụng tên và đích khác cho thư mục đích Kính trọng Sean
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 rất nhiều. Làm tốt lắm!.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để thay đổi macro này để tôi có thể lưu nó vào một tệp trong thư mục XLSTART nhưng nó sẽ chạy cho sổ làm việc đang hoạt động không? Mỗi khi tôi lưu nó trong sổ làm việc XLSTART, nó không thành công ở dòng DateString = Format (Bây giờ, "yyyy-mm-dd hh-mm-ss"). Thanks! Keith
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 tất cả, Ai đó có thể giúp tôi ở bên dưới. Tôi cần mã VBA chỉ có thể sao chép tất cả các trang tính hiển thị sang sổ làm việc mới và mã này không nên sao chép mã macro sang sổ làm việc mới, lưu sổ làm việc mới trên máy tính để bàn với hai giá trị ô khác nhau trong trang tính và tên trang tính dưới dạng tên tệp và đóng sổ làm việc chính mà không có tiết kiệm.
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. Đây chính xác là những gì tôi cần.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã bị lỗi tại sh.Copy và tôi không thể tìm ra lý do tại sao. Bất kỳ ý 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
mã này là hoàn hảo cho những gì tôi cần, nhưng bạn có thể hiển thị mã cho cùng một quy trình chính xác cho một trang tính thay vì toàn bộ sổ làm việ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
Các mã VBA hoạt động giống như ma thuật, nhưng có cách nào để thực hiện điều này bằng cách sử dụng VBScript không? Tôi đang phát điên khi cố gắng đáp ứng yêu cầu từ người giám sát của mình.
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. Terima Kasih. ini code yang saya butuhkan
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 rất hữu ích! Yêu thích mã VBA
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Muy buena la aplicacion. Es una pena no existir tambien en Español. Gracias
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 tiếc, mã VBA không hoạt động với tôi. Tôi đã phải gỡ lỗi và vấn đề là với dòng: Application.ActiveWorkbook.SaveAs xFile, FileFormat: = FileFormatNum Bất kỳ ý tưởng nào tại sao nó không hoạt động với tôi?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bài viết tuyệt vời - VBA hoạt động lần đầu tiên - hoàn hảo
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xWs.Copy -it là một lỗi trong phần của tôi nó có nghĩa là gì?
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 thời gian chạy Phương pháp 'Sao chép đối tượng' trang tính 'không thành 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
Trong số ba phương pháp trên, tôi thấy phương pháp đầu tiên là khá tốt vì tôi là người mới bắt đầu và công việc của tôi không ở cùng mức độ như các chuyên gia. Cảm ơn chân thành của tôi vì đã giải thích các bước một cách đơn giản và sáng suốt.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng tôi cũng có thể xuất TẤT CẢ (300+) trang tính sang html không, điều này sẽ giúp tôi rất nhiều, việc xuất sang văn bản hợp nhất đã được giúp nhưng tôi cần chúng trong html hoặc không có đường viền bảng vì sự khác biệt ô
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã của bạn đã làm việc cho tôi ... Cảm ơn nhiều !!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào. Tôi nhận được một mã lỗi có nội dung "Lỗi biên dịch: Thủ tục bên ngoài không hợp lệ" ... trợ giúp!
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