วิธีลบแผ่นงานเปล่าออกจากสมุดงาน
สมมติว่าคุณมีสมุดงานขนาดใหญ่ที่มีแผ่นงานหลายแผ่น แต่มีแผ่นงานเปล่าบางแผ่นที่ไม่มีเนื้อหาในสมุดงานนี้ ในการทำให้เวิร์กบุ๊กเป็นมืออาชีพและเป็นทางการมากขึ้นคุณต้องการลบแผ่นงานเปล่าเหล่านี้ออกจากสมุดงาน แทนที่จะนำแผ่นงานเปล่าออกทีละแผ่นฉันแนะนำวิธีการลบแผ่นงานเปล่าทั้งหมดอย่างรวดเร็ว
ลบแผ่นเปล่าโดย Kutools for Excel 
ลบแผ่นงานเปล่าโดย VBA
ที่นี่ฉันแนะนำ VBA เพื่อช่วยให้คุณลบแผ่นงานเปล่าทั้งหมดออกจากสมุดงานที่เปิดอยู่ได้อย่างรวดเร็ว
1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual สำหรับแอปพลิเคชันพื้นฐาน หน้าต่าง
2. แล้วคลิก สิ่งที่ใส่เข้าไป > โมดูลวางโค้ด VBA ด้านล่างเพื่อเปิดใหม่ โมดูล หน้าต่าง
VBA: ลบแผ่นงานเปล่า
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub3. และกด F5 คีย์หรือปุ่ม Run เพื่อดำเนินการ VBA และกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณว่าจะลบแผ่นงานเปล่าให้คลิก ใช่ เพื่อดำเนินการลบ ไม่ เพื่อยกเลิก VBA นี้
4 หลังจากคลิก ใช่กล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งจำนวนแผ่นงานที่ถูกลบออกคลิก OK เพื่อปิดและขณะนี้แผ่นงานที่ว่างเปล่าทั้งหมดจะถูกลบออก
ลบแผ่นเปล่าโดย Kutools for Excel
สำหรับมือสีเขียวของ Excel บางคน VBA เป็นวิธีที่ค่อนข้างยากในการดำเนินการ แต่มี Kutools for Excel's ลบแผ่นงานเปล่า คุณสามารถลบแผ่นงานเปล่าทั้งหมดออกจากสมุดงานได้อย่างรวดเร็วด้วยการคลิกเมาส์สามครั้ง!
| Kutools for Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจาก ติดตั้งฟรี Kutools for Excelโปรดดำเนินการดังนี้:
1. เปิดใช้งานสมุดงานที่คุณต้องการลบแผ่นงานเปล่าแล้วคลิก Kutools พลัส > แผ่นงาน > ลบแผ่นงานเปล่า. ดูภาพหน้าจอ:
บทความญาติ:
- วิธีการนับและลบรายการที่ซ้ำกันออกจากรายการใน Excel
- วิธีลบสตริงหลังอักขระที่ n ใน Excel
- วิธีลบข้อความภายในวงเล็บ / วงเล็บใน Excel
- วิธีลบรูปร่างเส้นใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
