Làm thế nào để xóa trang tính nếu tên trang tính không có trong danh sách?
Giả sử, tôi có một trang tính chứa danh sách tên trang tính trong sổ làm việc ở cột A như ảnh chụp màn hình bên dưới và một số tên trang tính nhất định trong sổ làm việc không có trong danh sách, bây giờ, tôi muốn xóa các trang tính không có trong danh sách cột A. Làm cách nào để giải quyết công việc này trong Excel một cách nhanh chóng và dễ dàng?
Xóa các trang tính không có trong danh sách cụ thể bằng mã VBA
Xóa các trang tính không có trong danh sách cụ thể bằng mã VBA
Thông thường, bạn có thể kiểm tra từng tên trang tính một và xóa những tên trang tính không có trong danh sách tên trang tính. Nhưng, ở đây, tôi có thể nói về mã VBA để xử lý nó. Vui lòng làm như sau:
1. Đi tới trang tính có chứa danh sách tên trang tính, sau đó nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Sau đó nhấn vào Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: Xóa trang tính không có trong danh sách
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
Chú thích: Trong đoạn mã trên, A2: A6 là tham chiếu ô chứa tên trang tính, bạn có thể thay đổi nó theo nhu cầu của mình.
3. Và sau đó nhấn F5 để chạy mã này, các trang tính không có trong danh sách đã bị xóa ngay lập tức, xem ảnh chụp màn hình:
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!