วิธีซ่อนแถวหรือคอลัมน์ว่างหลายรายการใน Excel พร้อมกันใน Excel
หากต้องการซ่อนหรือลบแถวหรือคอลัมน์ว่างอาจช่วยให้คุณย่อแผ่นงานได้ในบทความนี้ฉันจะแนะนำวิธีง่ายๆในการซ่อนหรือลบแถวหรือคอลัมน์ว่างในแผ่นงาน Excel
ซ่อนแถวหรือคอลัมน์ว่างหลายรายการอย่างรวดเร็วด้วยรหัส VBA
ลบแถวหรือคอลัมน์ว่างหลายรายการอย่างรวดเร็วด้วย Kutools for Excel
ซ่อนแถวหรือคอลัมน์ว่างหลายรายการอย่างรวดเร็วด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยให้คุณซ่อนแถวหรือคอลัมน์ว่างหลายแถวในแผ่นงานได้อย่างรวดเร็วและง่ายดาย
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ซ่อนแถวว่างหลายแถวในแผ่นงาน
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Row + xRg.Rows.Count
If Application.WorksheetFunction.CountA(xRg.Rows(I)) = 0 Then
xRg.Rows(I).EntireRow.Hidden = True
End If
Next
End Sub
3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการซ่อนแถวว่างดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มแถวว่างจะถูกซ่อนพร้อมกันดูภาพหน้าจอ:
หมายเหตุ: หากต้องการซ่อนคอลัมน์ว่างหลายคอลัมน์โปรดใช้รหัส VBA ต่อไปนี้:
รหัส VBA: ซ่อนคอลัมน์ว่างหลายคอลัมน์ในแผ่นงาน
Sub HideEmpties()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For I = 1 To xRg.Column + xRg.Columns.Count
If Application.WorksheetFunction.CountA(xRg.Columns(I)) = 0 Then
xRg.Columns(I).EntireColumn.Hidden = True
End If
Next
End Sub
ลบแถวหรือคอลัมน์ว่างหลายรายการอย่างรวดเร็วด้วย Kutools for Excel
ส่วนนี้ฉันจะพูดถึงวิธีการลบแถวหรือคอลัมน์ว่างหลายรายการที่คุณไม่ต้องการในช่วงแผ่นงานหรือสมุดงาน Kutools สำหรับ Excel's ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) ยูทิลิตี้สามารถช่วยคุณแก้ปัญหานี้ได้โดยเร็วที่สุด
Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. |
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:
1. เลือกช่วงข้อมูลที่คุณต้องการลบแถวหรือคอลัมน์ว่างจากนั้นคลิก Kutools > ลบ > ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้)ดูภาพหน้าจอ:
2. ใน ลบแถวและคอลัมน์ที่ซ่อน (มองเห็นได้) ใหเลือก ในช่วงที่เลือก in มองใน รายการแบบหล่นลง (คุณสามารถเลือกตัวเลือกอื่น ๆ ในรายการแบบเลื่อนลงนี้ได้ตามที่คุณต้องการ) เลือก แถว or คอลัมน์ จาก ประเภทการลบ และเลือก แถวว่าง or คอลัมน์ว่าง ภายใต้ ประเภทโดยละเอียด ส่วนดูภาพหน้าจอ:
3. จากนั้นคลิก Ok แถวหรือคอลัมน์ว่างในการเลือกจะถูกลบออกพร้อมกัน ดูภาพหน้าจอ:
หมายเหตุ: ด้วยคุณสมบัตินี้คุณยังสามารถลบแถวหรือคอลัมน์ที่ซ่อนอยู่แถวหรือคอลัมน์ที่มองเห็นได้ในส่วนที่เลือกแผ่นงานหรือสมุดงานตามที่คุณต้องการ
คลิกดาวน์โหลด Kutools for Excel ฟรีทันที!
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!