วิธีลบคอลัมน์ว่างหลายคอลัมน์อย่างรวดเร็วใน Excel

บางครั้งเมื่อคุณนำเข้าข้อมูลไปยัง Microsoft Excel จากแหล่งที่มาบางแห่งเช่นเว็บเพจ CSV ข้อความ ฯลฯ อาจมีคอลัมน์ว่างเปล่าอยู่ด้วย ต้องใช้เวลานานในการลบคอลัมน์ว่างทีละคอลัมน์ ดังนั้นพวกเราบางคนจึงค้นหาวิธีง่ายๆในการแก้ปัญหานี้ บทความนี้รวบรวมเคล็ดลับที่ยุ่งยากเพื่อช่วยให้คุณลบคอลัมน์ว่างหลายคอลัมน์ได้อย่างรวดเร็ว

ลบคอลัมน์ว่างหลายคอลัมน์ในแผ่นงานด้วยสูตร

ลบคอลัมน์ว่างหลายคอลัมน์ในแผ่นงานด้วยรหัส VBA

ลบคอลัมน์ว่างหลายคอลัมน์ในส่วนที่เลือก / แผ่นงานที่ใช้งานอยู่ / สมุดงานทั้งหมดด้วยคุณสมบัติที่มีประโยชน์

ลบคอลัมน์ว่างหลายคอลัมน์ที่มีส่วนหัวโดยใช้รหัส VBA

ลบคอลัมน์ว่างหลายคอลัมน์ในแผ่นงานด้วยสูตร

ใน Excel คุณสามารถใช้สูตรเพื่อระบุว่าคอลัมน์ว่างหรือไม่จากนั้นใช้ ประเภท คุณลักษณะในการจัดเรียงคอลัมน์ว่างทั้งหมดเข้าด้วยกันแล้วลบออกพร้อมกัน กรุณาทำตามนี้:

1. เพิ่มแถวใหม่ที่ด้านบนสุดของช่วงข้อมูลดูภาพหน้าจอ:

2. จากนั้นป้อนสูตรด้านล่างลงในเซลล์ A1 จากนั้นลากที่จับเติมไปทางด้านขวาเพื่อใช้สูตรนี้กับเซลล์อื่น TRUE จะปรากฏขึ้นหากคอลัมน์ว่างเปล่ามิฉะนั้นจะแสดง FALSE ดูภาพหน้าจอ:

3. จากนั้นเลือกช่วงข้อมูลรวมถึงแถวตัวช่วยแล้วคลิก ข้อมูล > ประเภทดูภาพหน้าจอ:

4. ในการโผล่ออกมา ประเภท คลิกตกลง Options ปุ่มดังต่อไปนี้ ตัวเลือกการเรียง ใหเลือก เรียงจากซ้ายไปขวา ดูภาพหน้าจอ:

5. คลิก OK เพื่อคืนค่า ประเภท จากนั้นเลือก แถวที่ 1 จาก เรียงลำดับตาม เลื่อนลงและเลือก ค่าของเซลล์ ราคาเริ่มต้นที่ จัดเรียงบน ส่วนเลือก ใหญ่ที่สุดถึงเล็กที่สุด จาก สั่งซื้อ ส่วนดูภาพหน้าจอ:

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

ลบคอลัมน์ว่างหลายคอลัมน์ในแผ่นงานด้วยรหัส VBA

หากคุณต้องการใช้มาโคร VBA สิ่งต่างๆจะง่ายขึ้นมาก รหัส VBA ต่อไปนี้อาจช่วยคุณได้โปรดทำตามนี้:

1. กด อื่น ๆ + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ลบคอลัมน์ว่างหลายคอลัมน์ในการเลือก:

ย่อย DeleteEmptyColumns () 'Updateby Extendoffice
Dim rng เป็น Range Dim InputRng As Range xTitleId = "KutoolsforExcel" ตั้งค่า InputRng = Application.Selection Set InputRng = Application.InputBox ("Range:", xTitleId, InputRng.Address, Type: = 8) Application.ScreenUpdating = False For i = InputRng.Columns.Count To 1 Step -1 ตั้งค่า rng = InputRng.Cells (1, i) .EntireColumn ถ้า Application.WorksheetFunction.CountA (rng) = 0 แล้ว rng ลบ End If Next Application.ScreenUpdating = True End Sub

3. กด F5 เพื่อเรียกใช้แมโครนี้เลือกช่วงการทำงานที่คุณต้องการในกล่องโต้ตอบป๊อปอัป ดูภาพหน้าจอ:

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

ลบคอลัมน์ว่างหลายคอลัมน์ในส่วนที่เลือก / แผ่นงานที่ใช้งานอยู่ / สมุดงานทั้งหมดด้วยคุณสมบัติที่มีประโยชน์

พื้นที่ ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยคุณลบแถวหรือคอลัมน์ที่ว่างเปล่าหลายรายการพร้อมกันได้อย่างรวดเร็ว

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

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

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

3. จากนั้นคลิก OK. และคอลัมน์ว่างถูกลบออกจากช่วงที่เลือก ดูภาพหน้าจอ:

ลบคอลัมน์ว่างหลายคอลัมน์ที่มีส่วนหัวโดยใช้รหัส VBA

บางครั้งคุณอาจต้องการลบคอลัมน์ว่างทั้งหมดที่มีเฉพาะส่วนหัวในแผ่นงานโค้ด VBA ต่อไปนี้สามารถช่วยคุณได้โปรดทำตามขั้นตอนต่อไปนี้:

1. กด อื่น ๆ + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

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

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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 สำหรับ 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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

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