วิธีลบแถวที่มีค่าหายไป / ว่างในบางคอลัมน์ใน Excel

ในบางกรณีคุณอาจต้องลบทั้งแถวที่ไม่มีค่าหรือเซลล์ว่างในช่วงของเซลล์ใน Excel บทความนี้จะแสดงวิธีจัดการกับปัญหานี้

ลบแถวที่มีค่าขาดหายไป / ว่างในบางคอลัมน์ด้วยรหัส VBA

---

ลบแถวที่มีค่าขาดหายไป / ว่างในบางคอลัมน์ด้วยรหัส VBA

สมมติว่าคุณต้องการลบแถวหากไม่มีค่าในคอลัมน์ B และ D ตามภาพหน้าจอร้อง คุณสามารถเรียกใช้รหัส VBA ต่อไปนี้เพื่อให้บรรลุ

1 กด อื่น ๆ + F11 เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: ลบแถวที่มีค่าขาดหายไป / ว่างในบางคอลัมน์

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    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 range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นก Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นโปรดเลือกช่วงคอลัมน์ที่คุณต้องการตรวจสอบว่ามีค่าที่ขาดหายไปหรือไม่จากนั้นคลิกที่ OK ปุ่ม

หลังจากคลิก OK คุณสามารถดูแถวทั้งหมดที่มีค่าที่ขาดหายไปในคอลัมน์ B และ D จะถูกลบทันที ดูภาพหน้าจอ:

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

---

---

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

• จะลบแถวได้อย่างไรหากเซลล์มีค่ามากกว่า / น้อยกว่าค่าที่กำหนดใน Excel
• จะลบแถวทั้งหมดยกเว้นแถวส่วนหัวแรกใน Excel ได้อย่างไร?
• จะลบแถวทั้งหมดด้านล่างแถวหรือเซลล์ที่ใช้งานอยู่ใน Excel ได้อย่างไร