จะลบแผ่นงานได้อย่างไรหากชื่อแผ่นงานไม่อยู่ในรายการ

สมมติว่าฉันมีแผ่นงานที่มีรายชื่อแผ่นงานภายในสมุดงานในคอลัมน์ A ตามภาพด้านล่างที่แสดงและชื่อแผ่นงานบางแผ่นในสมุดงานไม่อยู่ในรายการตอนนี้ฉันต้องการลบแผ่นงานที่ไม่ใช่ ในรายการคอลัมน์ A. ฉันจะแก้ปัญหานี้ใน Excel อย่างรวดเร็วและง่ายดายได้อย่างไร

ลบแผ่นงานที่ไม่อยู่ในรายการเฉพาะด้วยรหัส VBA

ลบแผ่นงานที่ไม่อยู่ในรายการเฉพาะด้วยรหัส VBA

โดยปกติ คุณสามารถตรวจสอบชื่อชีตทีละรายการ และลบชีตที่ไม่อยู่ในรายชื่อชีตได้ แต่ในที่นี้ ฉันจะพูดถึงโค้ด VBA เพื่อจัดการกับเรื่องนี้ โปรดดำเนินการดังต่อไปนี้:

1. ไปที่แผ่นงานที่มีรายการชื่อแผ่นงานจากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ลบแผ่นงานที่ไม่อยู่ในรายการ

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 "No sheets found to delete.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Have deleted " & cnt & " worksheets."
    End If
End Sub

หมายเหตุ: ในโค้ดด้านบน A2: A6 คือการอ้างอิงเซลล์ที่มีชื่อแผ่นงานคุณสามารถเปลี่ยนได้ตามต้องการ

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้แผ่นงานที่ไม่อยู่ในรายการจะถูกลบพร้อมกันดูภาพหน้าจอ: