จะลบแผ่นงานเปล่าทั้งหมดใน Excel ได้อย่างไร?

หากคุณมีสมุดงานที่มีแผ่นงานจำนวนมากในขณะเดียวกันก็มีแผ่นงานเปล่าอยู่ในนั้น และตอนนี้คุณต้องการลบเวิร์กชีตเปล่าเพื่อบันทึกหรือเก็บไฟล์ คุณจะค้นหาแผ่นงานเปล่าจากแผ่นงานหลายแผ่นและลบโดยอัตโนมัติได้อย่างไร

ลบแผ่นงานเปล่าทั้งหมดด้วยรหัส VBA

ลบแผ่นงานเปล่าทั้งหมดด้วย Kutools for Excel

ลบแผ่นงานเปล่าทั้งหมดด้วยรหัส VBA

เป็นเรื่องยากสำหรับคุณในการตรวจสอบแผ่นงานเปล่าและลบออกทีละแผ่น แต่ด้วยรหัส VBA ต่อไปนี้คุณสามารถลบแผ่นงานเปล่าทั้งหมดพร้อมกันได้อย่างง่ายดาย

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

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

VBA: ลบแผ่นงานเปล่าทั้งหมด

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. จากนั้นกด F5 คีย์และแผ่นงานเปล่าทั้งหมดจะถูกลบพร้อมกัน

ลบแผ่นงานเปล่าทั้งหมดด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับรหัส VBA ฉันสามารถแนะนำเครื่องมือง่ายๆให้คุณได้ - Kutools สำหรับ Excelเดียวกันกับที่ ลบแผ่นงานเปล่า คุณสามารถลบแผ่นงานว่างทั้งหมดได้ด้วยคลิกเดียว

Kutools สำหรับ Excel มีเครื่องมือ Excel ที่มีประโยชน์มากกว่า 300 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน Get it Now.

เมื่อคุณติดตั้ง Kutools for Excel แล้วโปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก Kutools พลัส > แผ่นงาน > ลบแผ่นงานเปล่าดูภาพหน้าจอ:

2. และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่าคุณต้องการลบเวิร์กชีทเปล่าทั้งหมดหรือไม่ดูภาพหน้าจอ:

3. จากนั้นคลิก ใช่และแผ่นงานเปล่าถูกลบสำเร็จแล้ว ดูภาพหน้าจอ:

หากคุณต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้โปรดคลิก ลบแผ่นงานเปล่า.

บทความที่เกี่ยวข้อง:

วิธีลบแผ่นงานที่ซ่อนอยู่ใน Excel