Hogyan lehet törölni az Excel bizonyos oszlopaiban hiányzó / üres értékű sorokat?

Bizonyos esetekben előfordulhat, hogy törölni kell a hiányzó értékű vagy üres cellákat az Excel cellatartományában. Ez a cikk megmutatja, hogyan kell kezelni ezt a problémát.

Törölje a hiányzó / üres értékű sorokat bizonyos oszlopokban, VBA kóddal

---

Törölje a hiányzó / üres értékű sorokat bizonyos oszlopokban, VBA kóddal

Tételezzük fel, hogy törölni akarjuk a sorokat, ha hiányzik az érték a B és D oszlopban, amint az a következő képernyőképen látható. A következő VBA-kód futtatásával futtathatja azt.

1. nyomja meg más + F11 megnyitni Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablakba.

VBA-kód: Törölje a hiányzó / üres értékű sorokat bizonyos oszlopokban

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. nyomja meg F5 gombot a kód futtatásához. Aztán a Kutools az Excel számára megjelenik a párbeszédpanel, válassza ki azt az oszloptartományt, amelyet ellenőrizni szeretne, hogy hiányzik-e érték vagy sem, majd kattintson a gombra OK gombot.

A kattintás után a OK gombra kattintva láthatja, hogy az összes, a B és D oszlopban hiányzó értékű sor azonnal törlődik. Lásd a képernyőképet:

Megjegyzések: Nem választhat ki egyszerre több tartományt. Ha hiányzik az érték több oszlopban, és törölni szeretné az összes sort, akkor ismételje meg a fenti 3. lépést egyik oszlopból a másikba.

---

---

Kapcsolódó cikkek:

• Hogyan lehet törölni a sorokat, ha a cella nagyobb vagy kisebb, mint az Excel bizonyos értéke?
• Hogyan lehet törölni az összes sort az Excel első fejlécsorának kivételével?
• Hogyan lehet törölni az összes sort az Excel bizonyos sora vagy aktív cellája alatt?