วิธีการลบแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ระบุ / ปัจจุบันใน 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.

1 คลิก Kutools พลัส > แผ่นงาน > ลบชีตที่ไม่ใช้งานทั้งหมด. 

3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นหากคุณต้องการลบแผ่นงานทั้งหมดยกเว้นแผ่นงานที่ใช้งานอยู่ให้คลิกไฟล์ OK มิฉะนั้นให้คลิกปุ่ม ยกเลิก ปุ่ม

จากนั้นแผ่นงานทั้งหมดจะถูกลบยกเว้นแผ่นงานปัจจุบันที่ใช้งานอยู่ในสมุดงานของคุณ

เพิ่มข้อความตรงกลางเซลล์ที่เลือกด้วย Kutools for Excel

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...