Kako izbrisati vrstice, če je celica večja / manjša od določene vrednosti v Excelu?

Včasih boste morda morali izbrisati vrstice, če so celice v določenem stolpcu večje ali manjše od določene vrednosti v Excelu. Ta članek bo priporočil več načinov za reševanje te težave.

Če je celica večja / manjša od določene vrednosti s kodo VBA, izbrišite vrstice
Z Kutools za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti
Z Kutoos za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti

Če je celica večja / manjša od določene vrednosti s kodo VBA, izbrišite vrstice

Recimo, da želite izbrisati celotne vrstice, če je celica v stolpcu D večja ali manjša od določene vrednosti v Excelu. Če jo želite doseči, lahko zaženete naslednjo kodo VBA.

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

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

Koda VBA: Izbrišite vrstice, če je celica večja / manjša od določene vrednosti v Excelu

Public Sub ProcessData()
    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) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Opombe: V zgornji kodi> 30000 pomeni, da boste izbrisali vrstice, če so celice večje od 30000 v določenem stolpcu. Če želite izbrisati vrstice, če so celice manjše od določene vrednosti, spremenite znak> na <in nato določite svojo vrednost.

3. Pritisnite F5 tipko za zagon kode v pojavnem oknu Kutools za Excel v pogovornem oknu izberite obseg (en stolpec), ki ga boste našli, če so celice v tem stolpcu večje ali manjše od določene vrednosti. In nato kliknite OK . Oglejte si posnetek zaslona:

Nato se vse vrstice z vrednostjo celice nad 30000 v stolpcu D takoj izbrišejo.

Z Kutools za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti

O Izberite Specific Cells uporabnost Kutools za Excel vam lahko pomaga izbrati vse vrstice s celicami, večje ali manjše od določene vrednosti v določenem stolpcu, nato pa lahko vse izbrane vrstice hkrati izbrišete hkrati.

1. Izberite stolpec, na podlagi katerega želite izbrisati vrstice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. V Ljubljani Izberite Specific Cells pogovorno okno, izberite Cela vrstica v Vrsta izbire odsek. V Posebna vrsta izberite, izberite Večji kot or Manj kot s prvega spustnega seznama vnesite določeno vrednost v naslednje besedilno polje in kliknite na OK gumb.

3. Potem se prikaže pogovorno okno, ki vam pove, koliko vrstic je izbranih, kliknite OK . In vidite, da so vse vrstice z vrednostjo večjo od 30000 v stolpcu D izbrane takoj.

4. Z desno miškino tipko kliknite eno od izbranih vrstic in nato kliknite Brisanje v meniju z desnim klikom. In vse izbrane vrstice se izbrišejo.

Z Kutoos za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti

Poleg zgornjih dveh metod lahko v določenem stolpcu filtrirate vse vrstice s celicami, ki so večje ali manjše od določene vrednosti, in nato odstranite vse filtrirane vrstice z Izbriši skrite (vidne) vrstice in stolpce uporabnost Kutools za Excel.

1. Izberite glavo stolpca in kliknite datum > filter. Oglejte si posnetek zaslona:

2. Kliknite puščico spustnega menija v stolpcu, na podlagi katerega boste izbrisali vrstice, nato kliknite Številčni filtri > Večji kot or Manj kot kot spodaj:

3. V Ljubljani Samodejni filter po meri v pogovorno okno vnesite določeno številko, potem ko je polje večje ali manjše od polja, in nato kliknite OK gumb.

4. Nato se vse vrstice z določenimi celicami, ki so večje ali manjše od določene vrednosti v stolpcu D, filtrirajo. Vse filtrirane vrstice lahko izbrišete tako, da izberete filtrirane podatke in nato kliknete Kutools > Brisanje > Izbriši skrite (vidne) vrstice in stolpce. Oglejte si posnetek zaslona:

5. V Ljubljani Izbriši skrite (vidne) vrstice in stolpce pogovorno okno, se prepričajte, da V izbranem obsegu možnost je izbrana v Poglej v spustnega seznama izberite Vrstice v Izbriši vrsto v razdelku določite možnost Vidne vrstice Podroben tip in na koncu kliknite OK gumb.

6. Nato se vse vidne vrstice v izbranem obsegu takoj izbrišejo, filter lahko prekličete s klikom datum > filter.

Sorodni članki:

• Kako izbrisati vse vrstice pod določeno vrstico ali aktivno celico v Excelu?
• Kako izbrisati vse vrstice, razen prve vrstice z glavo v Excelu?