จะลบแผ่นงานได้อย่างไรหากชื่อมีข้อความเฉพาะจากสมุดงาน

สมมติว่าคุณมีสมุดงานซึ่งมีแผ่นงานหลายแผ่นและตอนนี้คุณต้องการลบแผ่นงานตามชื่อแท็บ ตัวอย่างเช่นหากชื่อแผ่นงานมีข้อความเฉพาะ“ KTE” ให้ลบออกจากนั้นรับภาพหน้าจอต่อไปนี้ คุณจะลบแผ่นงานได้อย่างไรหากชื่อมีข้อความเฉพาะทันทีโดยไม่ต้องลบทีละแผ่น

ลบแผ่นงานหากชื่อมีข้อความเฉพาะพร้อมรหัส VBA

ลบแผ่นงานหากชื่อมีข้อความเฉพาะพร้อมรหัส VBA

ที่นี่ฉันจะสร้างรหัส VBA เพื่อให้คุณลบแผ่นงานตามชื่อโปรดทำตามนี้:

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

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

รหัส VBA: ลบแผ่นงานหากชื่อมีข้อความเฉพาะ

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. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณป้อนข้อความเฉพาะที่คุณต้องการลบแท็บแผ่นงานตามดูภาพหน้าจอ:

4. จากนั้นคลิก OKแผ่นงานทั้งหมดที่มีชื่อระบุว่า "KTE" จะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!