จะลบคอลัมน์ว่างพร้อมส่วนหัวใน Excel ได้อย่างไร?
หากคุณมีแผ่นงานขนาดใหญ่ที่มีหลายคอลัมน์ แต่บางคอลัมน์มีเฉพาะส่วนหัวและตอนนี้คุณต้องการลบคอลัมน์ว่างเหล่านี้ซึ่งมีเพียงส่วนหัวเพื่อให้ได้ภาพหน้าจอต่อไปนี้ สิ่งนี้สามารถแก้ไขได้อย่างรวดเร็วและง่ายดายหรือไม่?
ลบคอลัมน์ว่างที่มีส่วนหัวโดยใช้รหัส VBA
ลบคอลัมน์ว่างหลายคอลัมน์ในช่วง / แผ่นงาน / สมุดงานด้วย Kutools for Excel
ลบคอลัมน์ว่างที่มีส่วนหัวโดยใช้รหัส VBA
ใน Excel ไม่มีวิธีการโดยตรงในการจัดการกับงานนี้ยกเว้นการลบทีละรายการด้วยตนเอง แต่ที่นี่ฉันสามารถแนะนำรหัสให้คุณได้โปรดทำดังนี้:
1. ค้างไว้ ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ลบคอลัมน์ว่างที่มีส่วนหัว:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่าคอลัมน์ว่างที่มีส่วนหัวจะถูกลบดูภาพหน้าจอ:
4. จากนั้นคลิก OK คอลัมน์ว่างทั้งหมดที่มีเฉพาะส่วนหัวในแผ่นงานปัจจุบันจะถูกลบพร้อมกัน
หมายเหตุ: หากมีคอลัมน์ว่างคอลัมน์เหล่านั้นจะถูกลบเช่นกัน
ลบคอลัมน์ว่างหลายคอลัมน์ในช่วง / แผ่นงาน / สมุดงานด้วย Kutools for Excel
บางครั้งคุณเพียงแค่ลบคอลัมน์ว่างเท่านั้นไฟล์ Kutools สำหรับ Excel's ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) ยูทิลิตี้สามารถช่วยให้คุณทำงานนี้ได้อย่างง่ายดาย
Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เลือกช่วงคอลัมน์ที่ต้องลบคอลัมน์ว่าง
2. จากนั้นคลิก Kutools > ลบ > ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้)ดูภาพหน้าจอ:
3. ใน ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) กล่องโต้ตอบคุณสามารถเลือกขอบเขตการลบจากเมนูแบบเลื่อนลงมองหาได้ตามที่คุณต้องการเลือก คอลัมน์ จาก ประเภทการลบ แล้วเลือก คอลัมน์ว่าง จาก ประเภทโดยละเอียด ส่วนดูภาพหน้าจอ:
4. จากนั้นคลิก Ok และจะลบเฉพาะคอลัมน์ว่างในครั้งเดียว ดูภาพหน้าจอ:
เคล็ดลับ: ด้วยคุณสมบัติที่มีประสิทธิภาพนี้คุณยังสามารถลบแถวว่างคอลัมน์หรือแถวที่มองเห็นได้คอลัมน์หรือแถวที่ซ่อนอยู่ตามที่คุณต้องการ
คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!