Làm cách nào để nhanh chóng kiểm tra xem một trang tính có trống trong Excel hay không?
Nếu có một số trang tính trống trong một sổ làm việc lớn, làm thế nào bạn có thể nhanh chóng kiểm tra xem một trang tính trống trong sổ làm việc, sau đó xóa chúng đi? Trong Excel, có một chức năng được tích hợp sẵn để xác định xem một trang tính có trống hay không, nhưng ở đây, tôi giới thiệu một mã VBA để bạn kiểm tra xem một trang tính có trống không.
Kiểm tra xem một trang tính có trống không bằng VBA
Kiểm tra xem một trang tính có trống không bằng VBA
Để kiểm tra xem trang tính có trống không, bạn có thể sử dụng mã macro bên dưới để nhanh chóng xác định xem trang tính có trống hay không.
1. Bật một trang tính bạn muốn kiểm tra xem có trống không, nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ và nhấp chuột Chèn > Mô-đun để tạo ra một Mô-đun.
2. Trong tập lệnh trống, hãy dán mã macro bên dưới vào nó. Xem ảnh chụp màn hình:
VBA: Kiểm tra xem trang tính có trống không
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. Lưu mã và nhấn F5 để chạy mã và một hộp thoại sẽ bật ra để nhắc bạn rằng trang tính có trống hay không.
Công cụ năng suất văn phòng tốt nhất
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 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!