Làm cách nào để xóa trang tính nếu tên chứa văn bản cụ thể từ sổ làm việc?
Giả sử, bạn có một sổ làm việc chứa nhiều trang tính và bây giờ, bạn muốn xóa các trang tính theo tên tab. Ví dụ: nếu tên trang tính chứa một văn bản cụ thể “KTE”, hãy xóa nó đi và sau đó nhận được ảnh chụp màn hình sau. Làm thế nào bạn có thể xóa các trang tính nếu tên chứa một văn bản cụ thể ngay lập tức mà không xóa từng trang một?
Xóa trang tính nếu tên chứa văn bản cụ thể với mã VBA
Xóa trang tính nếu tên chứa văn bản cụ thể với mã VBA
Ở đây, mình sẽ tạo mã VBA để bạn xóa các sheet theo tên, hãy làm như sau:
1. Giữ ALT + F11 phím để 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 Mô-đun Cửa sổ.
Mã VBA: Xóa trang tính nếu tên chứa văn bản cụ thể
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập văn bản cụ thể mà bạn muốn xóa tab trang tính dựa trên, xem ảnh chụp màn hình:
4. Và sau đó nhấp vào OK, tất cả các trang tính có tên chứa văn bản được chỉ định “KTE” đã 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!