Kako izbrisati vrstice z manjkajočimi / praznimi vrednostmi v določenih stolpcih v Excelu?

V nekaterih primerih boste morda morali izbrisati celotne vrstice z manjkajočo vrednostjo ali prazno celico v obsegu celic v Excelu. Ta članek vam bo pokazal, kako se spoprijeti s to težavo.

V nekaterih stolpcih s kodo VBA izbrišite vrstice z manjkajočimi / praznimi vrednostmi

---

V nekaterih stolpcih s kodo VBA izbrišite vrstice z manjkajočimi / praznimi vrednostmi

Recimo, da želite izbrisati vrstice, če v stolpcih B in D obstaja manjkajoča vrednost, kot je prikazano spodaj. Če jo želite doseči, lahko zaženete naslednjo kodo VBA.

1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno Code.

Koda VBA: v nekaterih stolpcih izbrišite vrstice z manjkajočimi / praznimi vrednostmi

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. Pritisnite F5 tipko za zagon kode. Potem a Kutools za Excel Pojavi se pogovorno okno, izberite obseg stolpcev, ki ga želite preveriti, ali manjkajoča vrednost obstaja ali ne, in nato kliknite OK gumb.

Po kliku OK gumb, lahko vidite, da se vse vrstice z manjkajočo vrednostjo v stolpcih B in D takoj izbrišejo. Oglejte si posnetek zaslona:

Opombe: Ne morete izbrati več obsegov za delovanje hkrati. Če manjkajoča vrednost obstaja v več stolpcih in želite izbrisati vse vrstice, lahko zgornji korak 3 ponovite iz enega stolpca v drugega.

---

---

Sorodni članki:

• Kako izbrisati vrstice, če je celica večja / manjša od določene vrednosti v Excelu?
• Kako izbrisati vse vrstice, razen prve vrstice z glavo v Excelu?
• Kako izbrisati vse vrstice pod določeno vrstico ali aktivno celico v Excelu?