Note: The other languages of the website are Google-translated. Back to English

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


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

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

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

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

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

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL