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

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

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

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

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

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

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


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

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

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

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

=COUNTA(A2:A1048576)=0

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แล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง 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 คอลัมน์ว่างทั้งหมดที่มีเฉพาะส่วนหัวในแผ่นงานปัจจุบันจะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:


บทความที่เกี่ยวข้องเพิ่มเติม:

  • ลบรูปภาพหรือวัตถุอื่น ๆ ทั้งหมดใน Excel
  • หากคุณต้องการลบรูปภาพทั้งหมดจาก Microsoft Excel อาจใช้เวลานานในการเลือกรูปภาพแต่ละภาพและลบทีละภาพ เทคนิคต่อไปนี้อาจทำให้งานของคุณง่ายขึ้นในการลบรูปภาพทั้งหมด
  • ลบแถวตามสีพื้นหลังใน Excel
  • คุณจะลบแถวทั้งหมดตามสีพื้นหลังได้อย่างไร ในตัวอย่างนี้ฉันต้องลบแถวทั้งหมดที่เซลล์เต็มไปด้วยสีพื้นหลังสีน้ำเงินดังภาพต่อไปนี้ ด้วยบทความนี้คุณจะได้รับรหัสบางอย่างเพื่อให้บรรลุภารกิจนี้ใน 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

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (8)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันพบว่าการไปที่บรรทัดหลังข้อมูลบรรทัดสุดท้ายของฉันง่ายกว่ามาก ป้อน "Shift-Ctrl-End" เพื่อเน้นบรรทัดว่างทั้งหมดที่ตามมา (เร็วกว่ามาก) คลิกขวาแล้วป้อน "ลบแถว/คอลัมน์ทั้งหมด" ระบบไม่เสียเวลามากในการค้นหาด้วยวิธีนี้ และมันก็สะอาดในพริบตา และไฟล์ที่มีขนาด 20 MB ก็ลดลงเหลือขนาด 20 kb
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รายละเอียดข้างต้นมีประโยชน์มากสำหรับการใช้งานส่วนตัวของฉัน ขอบคุณสำหรับคำแนะนำของคุณ ม.กฤติกาญจน์ :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หน้ามีประโยชน์มาก ขอขอบคุณ. :-) ความท้าทายของฉันคือฉันมีคอลัมน์ที่มีส่วนหัว แต่ไม่มีข้อมูลในคอลัมน์นั้น มีเฉพาะส่วนหัวเท่านั้น เราจะลบคอลัมน์ที่ไม่มีข้อมูลได้อย่างไร แต่มีส่วนหัวอยู่หรือไม่ :o
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สิ่งที่คุณกล่าวถึงมีประโยชน์มาก ฉันต้องการความช่วยเหลือเล็กน้อยจากคุณ ทุกวันกำลังดาวน์โหลดไฟล์บางไฟล์และใช้ pivot ที่จัดเตรียมรายงาน มันเป็นงานประจำวันสำหรับฉันและกระบวนการประจำ ฉันจะทำโดยไม่ใช้ pivot ได้อย่างไร เช่น ถ้าฉันเตรียมรายงานของเมื่อวานในไฟล์ "A" Excel วันถัดไปในไฟล์ Excel "A" ฉันเพียงแค่แทนที่ข้อมูลไฟล์ Excel "B" ใหม่ โดยรายงานอัตโนมัตินี้จะถูกสร้างขึ้น? เป็นไปได้ไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ใครก็ได้ช่วยแนะนำวิธีที่ฉันสามารถลบเซลล์ว่างในแถวหรือคอลัมน์...จดคอลัมน์หรือแถวที่ว่างทั้งหมด... เฉพาะเซลล์ว่างที่ฉันต้องลบในคอลัมน์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,


ลองติดตั้งโค้ดด้านล่าง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณหน้าที่เป็นประโยชน์มากพร้อมตัวเลือก excel พื้นฐาน :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันลบชื่อของฉันทั้งหมดในคอลัมน์ชื่อของฉัน! อ๊าก!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

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

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