วิธีลบคอลัมน์ทั้งหมดตามค่าส่วนหัวใน Excel

ในหลาย ๆ กรณีคุณอาจต้องลบคอลัมน์ทั้งหมดตามค่าส่วนหัวใน Excel ตัวอย่างเช่นคุณต้องลบคอลัมน์ทั้งหมดที่มีค่า "เก่า" ในส่วนหัว ในบทช่วยสอนนี้เราจะแสดงวิธีการลบคอลัมน์ทั้งหมดตามค่าส่วนหัวโดยละเอียด

ลบคอลัมน์ทั้งหมดตามค่าส่วนหัวด้วยรหัส VBA
ลบคอลัมน์ทั้งหมดตามค่าส่วนหัวด้วย Kutools for Excel

คุณสามารถลบคอลัมน์ทั้งหมดตามค่าส่วนหัวด้วยรหัส VBA กรุณาดำเนินการดังนี้

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง

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

รหัส VBA: ลบคอลัมน์ทั้งหมดตามค่าส่วนหัว

Sub DeleteSpecifcColumn()
	Set MR = Range("A1:D1")
	For Each cell In MR
		If cell.Value = "old" Then cell.EntireColumn.Delete
	Next
End Sub

หมายเหตุ : :

3 กด F5 เพื่อเรียกใช้รหัสทั้งคอลัมน์ที่มีส่วนหัวเท่ากับข้อความที่ระบุจะถูกลบออกทันที

ด้วยระบบเส้นทาง Kutools สำหรับ Excel's เลือกเซลล์เฉพาะ ยูทิลิตี้คุณสามารถเลือกคอลัมน์ทั้งหมดที่มีค่าส่วนหัวที่แน่นอนก่อนจากนั้นจึงลบคอลัมน์ที่เลือกเหล่านี้พร้อมกัน กรุณาดำเนินการดังนี้

1. เลือกช่วงที่มีคอลัมน์ที่คุณต้องการลบจากนั้นคลิก Kutools > เลือก > เลือกเซลล์เฉพาะ. ดูภาพหน้าจอ:

2 ใน เลือกเซลล์เฉพาะ กล่องโต้ตอบเลือกไฟล์ คอลัมน์ทั้งหมด ตัวเลือกใน ประเภทการเลือก และในส่วน ประเภทเฉพาะ รายการแบบเลื่อนลงเลือก เท่ากับ จากนั้นพิมพ์ค่าส่วนหัวในช่องต่อไปนี้ และสุดท้ายคลิก OK ปุ่ม. ดูภาพหน้าจอ:

3 คลิกที่ OK ในกล่องโต้ตอบอื่นที่โผล่ขึ้นมาจากนั้นคอลัมน์ที่มีค่าส่วนหัวที่ระบุจะถูกเลือกทันที

4. คลิกขวาที่ส่วนหัวคอลัมน์ของคอลัมน์ที่เลือกแล้วคลิก ลบ จากเมนูคลิกขวา จากนั้นคอลัมน์ที่เลือกทั้งหมดจะถูกลบพร้อมกัน