Làm cách nào để xóa tất cả các trang tính trống trong Excel?

Trong khi đó, nếu bạn có một sổ làm việc có nhiều trang tính, có một số trang tính trống trong đó. Và bây giờ bạn muốn xóa các trang tính trống để lưu hoặc lưu trữ tệp. Làm thế nào bạn có thể tìm kiếm các trang tính trống từ nhiều trang tính và xóa chúng tự động?

Xóa tất cả các trang tính trống với mã VBA

Xóa tất cả các trang tính trống với Kutools cho Excel

Xóa tất cả các trang tính trống với mã VBA

Tuyệt vời! Sử dụng các tab hiệu quả trong Excel như Chrome, Edge, Firefox và Safari!
Tiết kiệm 50% thời gian của bạn và giảm hàng ngàn lần nhấp chuột cho bạn mỗi ngày!

Thật là rắc rối cho bạn khi kiểm tra các trang tính trống và xóa từng trang một, nhưng với mã VBA sau đây, bạn có thể dễ dàng xóa tất cả các trang tính trống cùng một lúc.

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

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

VBA: xóa tất cả các trang tính trống

Sub DeleteBlankWorksheets () 'Cập nhật 20130830 Dim Ws As Worksheet Khi Lỗi Tiếp tục Ứng dụng Tiếp theo.ScreenUpdating = False Application.DisplayAlerts = False For Each Ws In Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Then Ws.Delete End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Sau đó nhấn F5 và tất cả các trang tính trống sẽ bị xóa cùng một lúc.

Xóa tất cả các trang tính trống với Kutools cho Excel

Nếu bạn không quen với mã VBA, tôi có thể giới thiệu cho bạn một công cụ dễ dàng- Kutools cho Excel, Với khả Xóa trang tính trống , bạn có thể xóa tất cả các trang tính trống chỉ với một cú nhấp chuột.

Kutools cho Excel bao gồm hơn 300 công cụ Excel tiện dụng. Dùng thử miễn phí không giới hạn trong 30 ngày. Lấy nó ngay.

Khi bạn đã cài đặt Kutools cho Excel, vui lòng thực hiện theo các bước sau:

1. Nhấp chuột Doanh nghiệp > Công cụ trang tính > Xóa trang tính trống, xem ảnh chụp màn hình:

2. Và một hộp nhắc sẽ xuất hiện để nhắc bạn có muốn xóa tất cả các trang tính trống hay không, hãy xem ảnh chụp màn hình:

3. Sau đó nhấn vào Cóvà các trang tính trống đã được xóa thành công. Xem ảnh chụp màn hình:

Nếu bạn muốn biết thêm về tính năng này, vui lòng nhấp vào Xóa trang tính trống.

Bài viết liên quan:

Làm cách nào để xóa trang tính ẩn trong Excel?

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

🤖	Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh \| Tạo mã \| Tạo công thức tùy chỉnh \| Phân tích dữ liệu và tạo biểu đồ \| Gọi các hàm Kutools...
	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 đầu: 12 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...

Mô tả

Đọc thêm ... Tải xuống miễn phí...

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!

Đọc thêm ... Tải xuống miễn phí...

Comments (3)

No ratings yet. Be the first to rate!

Salvador Sánchez

about 4 years ago

#29815

This comment was minimized by the moderator on the site

Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.

SD Salvador Sánchez

about 4 years ago

#29816

This comment was minimized by the moderator on the site

I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.

Ems

about 6 years ago

#21196

This comment was minimized by the moderator on the site

Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

🤖	Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh \| Tạo mã \| Tạo công thức tùy chỉnh \| Phân tích dữ liệu và tạo biểu đồ \| Gọi các hàm Kutools...
	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 đầu: 12 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

changelog

Hướng dẫn về tính năng

Được trợ giúp?