วิธีการลบแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุ / ปัจจุบันใน Excel
สำหรับการลบแผ่นงานทั้งหมดในสมุดงาน Excel ยกเว้นแผ่นงานที่ใช้งานอยู่หรือแผ่นงานปัจจุบันที่ระบุไว้คุณสามารถจัดการกับสิ่งนี้ได้ตามวิธีการด้านล่างที่แสดง
ลบแผ่นงานทั้งหมดยกเว้นแผ่นที่ระบุด้วยรหัส VBA
คลิกเพียงครั้งเดียวเพื่อลบแผ่นงานทั้งหมดยกเว้นแผ่นงานปัจจุบันที่ใช้งานอยู่กับ Kutools for Excel
ลบแผ่นงานทั้งหมดยกเว้นแผ่นที่ระบุด้วยรหัส VBA
ด้วยรหัส VBA ด้านล่างคุณสามารถลบแผ่นงานทั้งหมดในสมุดงานยกเว้นแผ่นงานเฉพาะใน Excel
1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล
รหัส VBA: ลบแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุ
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
หมายเหตุ / รายละเอียดเพิ่มเติม:
1 "Sheet1"และ"Sheet2” คือแผ่นงานที่คุณต้องการเก็บไว้ในสมุดงานปัจจุบัน คุณสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณ
2. หากคุณต้องการลบทั้งหมด แต่เก็บแผ่นงานเพิ่มเติมโปรดเพิ่มรหัส และ xWs.Name <> "ชื่อแผ่นงานของคุณ" ก่อนที่จะ แล้วก็ คำในบรรทัดที่หกของรหัส เช่น:
ถ้า xWs.Name <> "Sheet1" และ xWs.Name <> "Sheet2" และ xWs.Name <> "your sheet name" แล้วก็
3. หากคุณต้องการเก็บแผ่นงานเดียวและลบทั้งหมดออกจากสมุดงานโปรดลบทั้งหมด และ เงื่อนไขในรหัส ตัวอย่างเช่นในการเก็บ sheet1 ไว้ในสมุดงานปัจจุบันคุณต้องเปลี่ยนรหัสบรรทัดที่หกเป็น: ถ้า xWs.Name <> "Sheet1" แล้ว
ลบแผ่นงานทั้งหมดยกเว้นแผ่นงานปัจจุบันที่ใช้งานด้วย Kutools for Excel (คลิกเดียวเท่านั้น)
Yคุณสามารถลบแผ่นงานทั้งหมดได้อย่างง่ายดายยกเว้นแผ่นงานที่ใช้งานอยู่ในปัจจุบันด้วยการคลิกเพียงครั้งเดียว ลบชีตที่ไม่ใช้งานทั้งหมด ประโยชน์ของ Kutools สำหรับ Excel.
ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.
1 คลิก Kutools พลัส > แผ่นงาน > ลบชีตที่ไม่ใช้งานทั้งหมด.
3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นหากคุณต้องการลบแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ใช้งานอยู่ให้คลิกไฟล์ OK มิฉะนั้นให้คลิกปุ่ม ยกเลิก ปุ่ม
จากนั้นแผ่นงานทั้งหมดจะถูกลบยกเว้นแผ่นงานปัจจุบันที่ใช้งานอยู่ในสมุดงานของคุณ
หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรี (30 วัน) กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น
เพิ่มข้อความตรงกลางเซลล์ที่เลือกด้วย Kutools for Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!