Kuidas kustutada ridu Excelis otseteede või VBA makro abil

  • Jaga Seda
Michael Brown

Selles artiklis on loetletud mitu võimalust Exceli ridade kustutamiseks lahtri väärtuse alusel. Selles postituses leiate nii kiirklahvid kui ka Exceli VBA. Kustutage ridu automaatselt või kasutage standardset Find-võimalust koos kasulike otseteedega.

Excel on ideaalne vahend aeg-ajalt muutuvate andmete salvestamiseks. Kuid tabeli uuendamine pärast mõningaid muudatusi võib vajada tõesti palju aega. Ülesanne võib olla nii lihtne kui kõigi tühjade ridade eemaldamine Excelis. Või peate leidma ja kustutama dubleeritud andmed. Üks asi, mida me teame kindlalt, on see, et alati, kui andmed tulevad või lähevad, otsite parimat lahendust, mis aitab teil säästa aega jooksvatöö.

Näiteks on teil turuplats, kus erinevad müüjad müüvad oma tooteid. Mingil põhjusel lõpetas üks müüja oma tegevuse ja nüüd peate kustutama kõik read, mis sisaldavad selle müüja nime, isegi kui need on erinevates veergudes.

Selles postituses leiate Exceli VBA ja otseteed, et kustutada ridu teatud teksti või väärtuse alusel. Näete, kuidas hõlpsasti leida ja valida vajalik teave enne eemaldamist. Kui teie ülesanne ei ole mitte kustutamine, vaid ridade lisamine, leiate, kuidas seda teha dokumendis Kiireim viis mitme rea sisestamiseks Excelis.

    Kiireim Exceli otsetee tabeli ridade kustutamiseks

    Kui soovite kasutada kiireimat meetodit mitme rea kustutamiseks vastavalt nende lahtri väärtusele, peate need read kõigepealt õigesti valima.

    Ridade valimiseks võite kas tõsta esile kõrvalolevad lahtrid, millel on vajalikud väärtused, ja klõpsata Shift + Space või valida vajalikud mitte-nähedased lahtrid, hoides Ctrl-klahvi all.

    Saate valida ka terveid ridu, kasutades ridade numbrite nuppe. Viimase nupu kõrval näete esile tõstetud ridade numbrit.

    Pärast vajalike ridade valimist saate need kiiresti eemaldada, kasutades Exceli kiirkorraldust "kustuta rida". Allpool leiate, kuidas vabaneda valitud ridadest, olenemata sellest, kas teil on tavaline andmetabel või tabel, mille andmed on paremal pool.

    Eemaldage read kogu tabelist

    Kui teil on lihtne Exceli nimekiri, millel ei ole paremal pool lisateavet, saate ridade eemaldamiseks 2 lihtsa sammuga kasutada otsetee kustutada rida:

    1. Vajutage klahvi Ctrl + - (põhiklaviatuuril miinus).

    Näete, et kasutamata read kaovad hetkega.

    Vihje. Saate esile tõsta ainult selle vahemiku, mis sisaldab väärtusi, mida soovite eemaldada. Seejärel kasutage otseteed Ctrl + - (miinus põhiklaviatuuril) et saada standardne Excel Kustuta dialoogiaken, mis võimaldab valida Kogu rida raadionupp või mõni muu kustutamisvõimalus, mida võite vajada.

    Kustuta read, kui tabelist paremal on andmeid

    Ctrl + - (põhiklaviatuuril miinus) Exceli otsetee on kiireim vahend ridade kustutamiseks. Kui aga teie põhitabelist paremal on andmeid, nagu alloleval ekraanipildil, võib see eemaldada ridu koos andmete, mida peate säilitama.

    Kui see on teie puhul nii, peate oma andmed vormindama järgmiselt. Exceli tabel esimene.

    1. Vajutage Ctrl + T , või minge menüüsse Vahekaart Avaleht -> Vormindamine tabelina ja valige endale sobivaim stiil.

    Sa näed Tabeli loomine dialoogiaken, mida saate kasutada vajaliku vahemiku esiletõstmiseks.

  • Nüüd, kui teie nimekiri on vormindatud, valige vahemik, mille väärtusi või ridu soovite tabelis kustutada.
  • Märkus. Veenduge, et te ei kasuta ridade nuppe kogu rea valimiseks.

  • Vajutage Ctrl + - (põhiklaviatuuril miinus), et näha, et soovimatud andmed eemaldatakse ainult teie tabelist. Täiendav teave paremal jäetakse puutumata.
  • Loodan, et leidsite selle "rea eemaldamise" otsetee kasulikuks. Jätkake lugemist, et leida Exceli VBA ridade kustutamiseks ja õppida, kuidas kõrvaldada andmeid teatud lahtriteksti alusel.

    Teatud teksti sisaldavate ridade kustutamine ühes veerus

    Kui elemendid ridades, mida soovite eemaldada, esinevad ainult ühes veerus, juhatavad järgmised sammud teid selliste väärtustega ridade kustutamise protsessi kaudu.

    1. Esmalt peate oma tabelile kohaldama Filter'i. Selleks navigeerige tabelisse Andmed vahekaart Excelis ja klõpsake nuppu Filter ikoon.

  • Filtreerige kustutamiseks vajalikke väärtusi sisaldavat veergu vajaliku teksti järgi. Klõpsake noolesümboolikale selle veeru kõrval, mis sisaldab vajalikke elemente. Seejärel eemaldage märkeruudust Valige kõik ja märgistage õigete väärtuste kõrval olevad märkeruudud. Kui nimekiri on pikk, sisestage lihtsalt vajalik tekst lahtrisse Otsi seejärel klõpsake nuppu OK kinnitamiseks.
  • Valige filtreeritud lahtrid ridades, mida soovite kustutada. Ei ole vaja valida terveid ridu.
  • Tehke paremklõps esile tõstetud vahemikul ja valige valikuga Kustuta rida valik menüüst.
  • Lõpuks klõpsake nuppu Filter ikooni uuesti tühjendada ja näete, et väärtustega read kadusid teie tabelist.

    Kuidas eemaldada Exceli ridu lahtri värvi järgi

    Filtri valik võimaldab sorteerida andmeid lahtrite värvi alusel. Selle abil saate kustutada kõik read, mis sisaldavad teatud taustavärvi.

    1. Rakenda Filter oma tabelisse. Mine Andmed vahekaart Excelis ja klõpsake nuppu Filter ikoon.

  • Klõpsake vajalikku veeru nime kõrval oleval väikesel noolega, minge juurde Filtreeri värvi järgi ja valige õige lahtri värv. Klõpsake OK ja näete kõiki esile tõstetud lahtreid üleval.
  • Valige filtreeritud värvilised lahtrid, tehke neil paremklõps ja valige käsk Kustuta rida valik menüüst.
  • See ongi kõik! Samavärviliste lahtritega read eemaldatakse hetkega.

    Kustuta ridu, mis sisaldavad teatud teksti erinevates veergudes

    Kui väärtused, mida soovite eemaldada, on laiali erinevates veergudes, võib sorteerimine muuta ülesande keerulisemaks. Allpool leiate kasuliku näpunäite ridade eemaldamiseks teatud väärtusi või teksti sisaldavate lahtrite põhjal. Minu allolevast tabelist tahan eemaldada kõik read, mis sisaldavad jaanuari, mis esineb kahes veerus.

    1. Alustage otsingut ja valige vajaliku väärtusega lahtrid, kasutades funktsiooni Leia ja asenda dialoog. Klõpsake Ctrl + F selle käivitamiseks.

      Vihje. Sama dialoogiakna leiad, kui lähed aadressile Avakülg -> Leia & vali; Vali ja valida Leia valik rippmenüüst.

    2. Sisestage vajalik väärtus lahtrisse Leia, mida välja ja valige vajadusel lisavalikud. Seejärel vajutage nuppu Leia kõik et näha tulemust.

  • Tulemused ilmuvad Leia ja asenda aken.
  • Valige leitud väärtused aknas, hoides Ctrl klahvi vajutades. Leitud väärtused tõstetakse automaatselt tabelis esile.

  • Nüüd navigeerige veebilehele Vahekaart Home -> Kustuta -> Kustuta lehe read .
  • Vihje. Valitud väärtustega ridu saab kustutada, kui vajutate Ctrl + -. (miinus põhiplaadil) ja valige raadionupp Kogu rida .

    Voila! Soovimatud read on kustutatud.

    Exceli VBA makro ridade kustutamiseks või iga teise rea eemaldamiseks

    Kui otsite alati lahendust selle või teise Exceli rutiini automatiseerimiseks, haarake allpool olevad makrod, et lihtsustada oma ridade kustutamise ülesannet. Selles osas leiate 2 VBA makrot, mis aitavad teil eemaldada valitud lahtritega ridu või kustutada iga teise rea Excelis.

    Makro RemoveRowsWithSelectedCells kõrvaldab kõik read, mis sisaldavad vähemalt ühte esile tõstetud lahtrit.

    Makro RemoveEveryOtherRow nagu nimigi ütleb, aitab teil vabaneda igast teisest/kolmandast jne. reast vastavalt teie seadistustele. See eemaldab read alates hiirekursori praegusest asukohast kuni tabeli lõpuni.

    Kui te ei tea, kuidas sisestada makrosid, vaadake julgelt jaotist Kuidas sisestada ja käivitada VBA-koodi Excelis.

    Sub RemoveRowsWithSelectedCells() Dim rngCurCell, rng2Delete As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each rngCurCell In Selection If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rngCurCell.Row, 1)) Else Set rng2Delete = rngCurCell End If Next rngCurCell If Not rng2Delete Is Nothing Thenrng2Delete.EntireRow.Delete End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub RemoveEveryOtherRow() Dim rowNo, rowStart, rowFinish, rowStep As Long Dim rng2Delete As Range rowStep = 2 rowStart = Application.Selection.Cells(1, 1).Row rowFinish = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Application.ScreenUpdating = FalseApplication.Calculation = xlCalculationManual For rowNo = rowStart To rowFinish Step rowStep If Not rng2Delete Is Nothing Then Set rng2Delete = Application.Union(rng2Delete, _ ActiveSheet.Cells(rowNo, 1)) Else Set rng2Delete = ActiveSheet.Cells(rowNo, 1) End If Next If Not rng2Delete Is Nothing Then rng2Delete.EntireRow.Delete ' Peida iga teine rida 'rng2Delete.EntireRow.Hidden = True End IfApplication.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

    Vihje. Kui teie ülesanne on värvida iga teine/kolmas jne. rida erineva värviga, leiate sammud jaotisest Ridade ja veergude vahelduv värvimine Excelis (ridade ja veergude ribadeks jaotamine).

    Selles artiklis kirjeldasin, kuidas kustutada ridu Excelis. Nüüd on teil mitu kasulikku VBA-makrot valitud ridade kustutamiseks, te teate, kuidas eemaldada iga teine rida ja kuidas kasutada Find & Replace, et aidata teil otsida ja valida kõik samade väärtustega read enne nende kõrvaldamist. Loodan, et ülaltoodud nõuanded lihtsustavad teie tööd Excelis ja võimaldavad teil saada rohkem vaba aega nende viimaste nautimiseks.suvepäevad. Olge õnnelikud ja paistke silma Excelis!

    Michael Brown on pühendunud tehnoloogia entusiast, kelle kirg on tarkvaratööriistade abil keerukate protsesside lihtsustamine. Rohkem kui kümneaastase kogemusega tehnoloogiatööstuses on ta lihvinud oma oskusi Microsoft Excelis ja Outlookis, samuti Google Sheetsis ja Docsis. Michaeli ajaveebi eesmärk on jagada oma teadmisi ja teadmisi teistega, pakkudes hõlpsasti järgitavaid näpunäiteid ja õpetusi tootlikkuse ja tõhususe parandamiseks. Olenemata sellest, kas olete kogenud professionaal või algaja, pakub Michaeli ajaveebi väärtuslikke teadmisi ja praktilisi nõuandeid nende oluliste tarkvaratööriistade maksimaalseks kasutamiseks.