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

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

หากคุณมีแผ่นงานขนาดใหญ่ที่มีหลายคอลัมน์ แต่บางคอลัมน์มีเฉพาะส่วนหัวและตอนนี้คุณต้องการลบคอลัมน์ว่างเหล่านี้ซึ่งมีเพียงส่วนหัวเพื่อให้ได้ภาพหน้าจอต่อไปนี้ สิ่งนี้สามารถแก้ไขได้อย่างรวดเร็วและง่ายดายหรือไม่?

doc ลบคอลัมน์ว่างที่มีส่วนหัว 1

ลบคอลัมน์ว่างที่มีส่วนหัวโดยใช้รหัส 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 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณว่าคอลัมน์ว่างที่มีส่วนหัวจะถูกลบดูภาพหน้าจอ:

doc ลบคอลัมน์ว่างที่มีส่วนหัว 2

4. จากนั้นคลิก OK คอลัมน์ว่างทั้งหมดที่มีเฉพาะส่วนหัวในแผ่นงานปัจจุบันจะถูกลบพร้อมกัน

หมายเหตุ: หากมีคอลัมน์ว่างคอลัมน์เหล่านั้นจะถูกลบเช่นกัน


ลูกศรสีฟ้าฟองขวา ลบคอลัมน์ว่างหลายคอลัมน์ในช่วง / แผ่นงาน / สมุดงานด้วย Kutools for Excel

บางครั้งคุณเพียงแค่ลบคอลัมน์ว่างเท่านั้นไฟล์ Kutools สำหรับ Excel's ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) ยูทิลิตี้สามารถช่วยให้คุณทำงานนี้ได้อย่างง่ายดาย

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. 

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

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

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

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

doc ลบคอลัมน์ว่างที่มีส่วนหัว 4

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

doc ลบคอลัมน์ว่างที่มีส่วนหัว 5

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

คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (10)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณสำหรับรหัสที่ดีด้านบน ใช้งานได้ฟรีหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
พระเจ้าช่วย นี่มันอัจฉริยะ!!! ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานได้อย่างสมบูรณ์แบบ ชื่นชมมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สามารถบันทึกในสเปรดชีตเดียวและเรียกใช้ในไฟล์อื่นได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทั้งหมดที่ฉันได้รับคือ "ไม่มีคอลัมน์ที่จะลบเนื่องจากแต่ละรายการมีข้อมูล (แถว) มากกว่าแค่ส่วนหัว" แต่ฉันรู้จริงๆ ว่าฉันมีคอลัมน์ประมาณ 700 คอลัมน์ที่มีส่วนหัวและไม่มีข้อมูล ฉันมีสเปรดชีตที่มีมากกว่า 900 คอลัมน์และมีเพียง 200 ชีตเท่านั้นที่มีข้อมูลอยู่ใต้ส่วนหัว มาโครอื่นใช้งานได้ แต่ฉันต้องลบแถวส่วนหัว ฉันจึงรู้ว่ามาโครนี้ทำงานไม่ถูกต้อง ว่าไง?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณพอล
โค้ด VBA ทำงานได้ดีหากมีแถวส่วนหัวเพียงแถวเดียวในเวิร์กชีต หากมีแถวส่วนหัวตั้งแต่ XNUMX แถวขึ้นไป จะแสดงข้อความแจ้งที่คุณพูดออกมา
ดังนั้นคุณต้องตรวจสอบว่ามีแถวหัวเรื่องที่ซ่อนอยู่ในข้อมูลของคุณหรือไม่
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัศจรรย์! คุณถูก. คงมีอะไรซ่อนอยู่แน่ๆ ตอนนี้ทุกอย่างทำงานได้ดี ขอบคุณมากสำหรับการตอบกลับอย่างรวดเร็ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันมีปัญหาเดียวกัน ฉันรู้โดยข้อเท็จจริงว่าฉันมีคอลัมน์จำนวนมากที่มีส่วนหัวเท่านั้น แต่มีข้อผิดพลาดเหมือนกัน "ไม่มีคอลัมน์ให้ลบเนื่องจากแต่ละคอลัมน์มีข้อมูล (แถว) มากกว่าส่วนหัว" และฉันได้ตรวจสอบว่าไม่มีแถวที่ซ่อนอยู่ในข้อมูล
ใครสามารถช่วยฉันได้บ้าง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Simoch
ในกรณีนี้ คุณสามารถอัปโหลดไฟล์แนบ Excel ได้ที่นี่ เพื่อให้เราสามารถช่วยตรวจสอบปัญหาได้หากคุณไม่รังเกียจ
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน skyyang ไม่จำเป็น ตอนนี้มันทำงานได้อย่างสมบูรณ์แบบ !! ขอบคุณมากสำหรับรหัส VBA นั้น!
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ