จะลบคอลัมน์ว่างพร้อมส่วนหัวใน Excel ได้อย่างไร?

หากคุณมีเวิร์กชีตขนาดใหญ่ที่มีหลายคอลัมน์ แต่บางคอลัมน์มีเพียงส่วนหัว และตอนนี้คุณต้องการลบคอลัมน์ว่างเหล่านี้ที่มีเพียงส่วนหัว เพื่อให้ได้ภาพหน้าจอต่อไปนี้ ปัญหานี้สามารถแก้ปัญหาใน 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 columns with only headers are 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โปรดดำเนินการดังนี้:

1. เลือกช่วงคอลัมน์ที่ต้องลบคอลัมน์ว่าง

2. จากนั้นคลิก Kutools > ลบ > ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้)ดูภาพหน้าจอ:

3. ใน ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) กล่องโต้ตอบคุณสามารถเลือกขอบเขตการลบจากเมนูแบบเลื่อนลงมองหาได้ตามที่คุณต้องการเลือก คอลัมน์ จาก ประเภทการลบ แล้วเลือก คอลัมน์ว่าง จาก ประเภทโดยละเอียด ส่วนดูภาพหน้าจอ:

4. จากนั้นคลิก Ok และจะลบเฉพาะคอลัมน์ว่างในครั้งเดียว ดูภาพหน้าจอ:

เคล็ดลับ: ด้วยคุณสมบัติที่มีประสิทธิภาพนี้คุณยังสามารถลบแถวว่างคอลัมน์หรือแถวที่มองเห็นได้คอลัมน์หรือแถวที่ซ่อนอยู่ตามที่คุณต้องการ