Innholdsfortegnelse
Hvis du leter etter noen av de enkleste måtene å slette rader ved å bruke VBA , så er du på rett sted.
La oss dykke ned i hovedartikkelen.
Last ned arbeidsbok
VBA Slett Row.xlsm
14 måter å slette rader ved å bruke VBA
Her har jeg de tre dataene tabeller for å vise måter å slette rader ved å bruke VBA . Den første tabellen inneholder noen produkter fra et selskap og deres størrelser , priser .
Den andre en har noen Produktkoder og deres tilsvarende Produktstørrelser og Priser
Og den siste inneholder noen Prosjektnavn og deres respektive Startdatoer og Kostnader .
For å lage artikkelen, har brukt Microsoft Excel 365 -versjonen, kan du bruke alle andre versjoner etter eget ønske.
Metode-1: Slett en enkelt rad ved å bruke VBA
La oss si at du ønsker å slette raden som inneholder Produkt Sko 1, og for å slette denne enkeltraden kan du følge denne metoden.
Trinn-01 :
➤Gå til Utvikler Tab>> Visual Basic Alternativ
Deretter vil Visual Basic Editor åpnes.
➤Gå til Sett inn Tab>> Modul Alternativ
Deretter opprettes en modul .
Trinn-02 :
➤Skriv fol lavningskode
4902
Her er “Single” forening av flere områder som tilsvarer cellene som har datoen 11/12/2021 , og til slutt vil områdene bli slettet.
➤Trykk F5
Resultat :
Deretter vil du slette radene som har en bestemt dato 11/12/2021 .
Relatert innhold: Excel VBA for å slette rader med spesifikke data (9 eksempler)
Øvelse Seksjon
For å øve på egen hånd har vi gitt en øvelse -seksjon som nedenfor i et ark kalt Øvning . Vennligst gjør det selv.
Konklusjon
I denne artikkelen prøvde jeg å dekke de enkleste måtene å bruke VBA effektivt for sletting av rader. Håper du finner det nyttig. Hvis du har forslag eller spørsmål, del dem gjerne i kommentarfeltet.
regnearknavn, og Rows(7)velger radnummeret..EntireRow.Delete vil slette hele rad 7.
➤Trykk F5
Resultat :
På denne måten vil du slette raden som inneholder Produkt navn Sko 1 .
Les mer: Hvordan slette rader i Excel: 7 Metoder
Metode-2: Slett flere rader ved hjelp av VBA
Hvis du vil slette flere rader som radene som inneholder Produkt navnene Sko1 , Shoe2, og Shoe3 , så kan du følge denne VBA koden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
4808
Her, radnummer 13, 10 , og 7 vil bli slettet, og i serienummeret må du skrive radnumrene fra det siste radnummeret til første radnummer som denne koden.
Ellers, etter å ha slettet den første raden som Rad 7 de resterende rader under denne raden vil flytte en rad opp og dermed vil rad 10 bli rad 9, og rad 13 vil være rad 12. For dette re ason, vil du ikke kunne slette de riktige radene.
➤Trykk F5
Resultat :
Deretter vil du slette radene som inneholder Produkt -navnene Sko 1 , Sko2, og Sko3 .
Les mer: Hvordan slette flere rader i Excel (3 metoder)
Metode-3 : Slette en rad ved å velge
Her vil jeg vise måten å slette en radmed hensyn til en aktiv celle i den raden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
7854
Det vil slette raden som har en aktiv celle.
➤Lagre koden.
Trinn-02 :
➤Velg en hvilken som helst celle i en rad som du vil slette (Her har jeg valgt celle B7 )
➤Gå til Utvikler Tab>> Makroer Alternativ
Deretter vil Makroen Veiviseren åpnes.
➤Velg Makronavnet dltrow3 og trykk Kjør
Resultat :
Etterpå vil du slette raden som inneholder Produkt -navnet Sko 1 .
Metode-4: Slette alle rader i utvalget
For å slette alle radene i et utvalg kan du følge denne metoden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
9621
It vil slette alle radene i utvalget.
➤Lagre koden.
Trinn-02 :
➤Velg rekkevidden du vil slette (Her har jeg valgt område B7:D9 )
➤Gå til Utvikler Tab>> Makroer Alternativ
Deretter åpnes Makro veiviseren.
➤Velg Makronavnet dltrow4 og trykk Kjør
Resultat :
Deretter vil du slette radene som inneholder Produkt navn Sko 1 , Jakke1, og Jacket2 .
Les mer: Slik sletter du valgte rader i Excel(8 tilnærminger)
Metode-5: Slette en rad hvis en celle er tom
Her har jeg en tom celle som er B9 (Jeg har fjernet verdien fra denne cellen for dette metode), og ved å bruke en VBA kode vil jeg slette raden som har B9 celle.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
9125
Det vil slette alle radene i området «B5:D13» har en hvilken som helst tom celle.
➤Trykk F5
Resultat :
Deretter vil du kunne slette raden som inneholder den tomme cellen.
Les mer: Hvordan fjerne tomme rader i Excel (11 metoder)
Metode-6: Slette en rad Hvis hele raden er tom
Her har jeg en tom celle som er B9 (Jeg har fjernet verdiene for denne metoden), og en tom rad som er rad 12 (jeg har fjernet verdiene for denne metoden), og ved å bruke en VBA -kode og COUNTA-funksjon Jeg vil slette raden som er tom.
Trinn-01 :
➤Følg Trinn-01 av Method-1
7436
“B5:D13” er dataområdet og FOR løkken vil fungere for hver celle i dette området.
CountA(cell.EntireRow) vil returnere antall ikke-tomme celler, og når det blir 0, vil raden bli slettet.
➤Trykk F5
Resultat :
Etter det vil du kunne slette den tomme raden, men den vil ikke slette noen rad som ikke har alle cellene i denne raden er tomme.
Les mer: Hvordan bruke VBA til å slette tomme rader i Excel
Metode-7: Sletting av hver n'te rad
Du kan slette hver n'te rad (i dette tilfellet hver 3. rad) ved å følge denne metoden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
8535
“B5 :D13” er dataområdet og rc vil returnere det totale radnummeret for dette området som er 9 .
Her er FOR løkken vil starte fra den siste raden som er rc eller 9 i dette tilfellet og slutter med den første raden.
Trinn -3 vil bidra til å slette hver tredje rad i dette området.
➤Trykk F5
Resultat :
Deretter vil du slette radene som inneholder Produkt -navnene Sko 1 , Sko2, og Shoe3 .
Les mer: Hvordan slette hver nth R ow i Excel (enkleste 6 måter)
Lignende avlesninger:
- Hvordan slette valgte rader med Excel VBA (et trinn- trinnvise retningslinjer)
- Slett ubrukte rader i Excel (8 enkle måter)
- Hvordan slette skjulte rader i Excel (3 metoder)
- Slett uendelige rader i Excel (5 enkle måter)
- Hvordan slette rader i Excel som fortsetter for alltid (4 enkleMåter)
Metode-8: Slette rad basert på celleverdi
I denne metoden vil jeg slette raden som har en spesifikk verdi Skjorte 2 .
Trinn-01 :
➤Følg Trinn-01 av Metode- 1
7363
“B5:D13” er dataområdet og FOR løkken vil fungere for hver celle i dette området.
Hvis en celle i en rad inneholder verdien “Skjorte 2” , vil raden bli slettet.
➤Trykk F5
Resultat :
På denne måten vil du slette raden som inneholder Produkt -navnet Skjorte 2 .
Les mer: VBA-makro for å slette rad hvis celle inneholder verdi i Excel (2 metoder)
Metode-9: Sletting av dupliserte rader
Her har jeg to rader som har en Produktkode 97375 og derfor vil jeg slette en av disse radene som er merket med en rød boks under.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
2291
Her, “B5:D13” er dataområdet og kolonner:=1 meg og det vil søke etter dupliserte verdier bare i én kolonne som er startkolonnen Kolonne B men hvis du vil søke i andre kolonner også kan du bruke dette tallet i henhold til dine behov.
➤Trykk F5
Resultat :
Etterpå vil du kunne slette raden som er ligner på en annen rad.
Les mer: Hvordan slette dupliserte rader iExcel med VBA (8 effektive måter)
Metode-10: Slette rader i en tabell
Anta at du har følgende tabell hvis navn er Tabell1 og nå vil du slette Rad nummer 6 i denne tabellen. For å gjøre dette kan du følge denne metoden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
9346
Her er “Tabell” arknavnet, “Tabell1” er tabellnavnet og 6 er radnummeret til denne tabellen som du vil slette.
➤Trykk F5
Resultat :
På denne måten vil du slette ønsket rad i denne tabellen.
Les mer: Hvordan fjerne dupliserte rader basert på én kolonne ved hjelp av Excel VBA
Metode-11: Sletting av synlige rader etter filtrering
Her har jeg en datatabell som er filtrert etter kolonnen Pris for verdier over $1500,00 og jeg vil slette alle de synlige radene etter filtrering.
Trinn-01 :
➤Følg Trinn-01 av Method-1
2229
Her, “B5: D13” er dataområdet.
➤Trykk F5
Nå vil alle de synlige radene etter filtrering bli slettet. Du kan nå få tilbake de skjulte radene ved å velge Filter -tegnet i Pris -kolonnen.
➤Klikk på Velg alle -alternativet
➤Trykk OK
Resultat :
Til slutt vil du få de skjulte radene inn igjendatatabellen.
Les mer: Hvordan filtrere og slette rader med VBA i Excel (2 metoder)
Metode-12: Sletting av rad basert på siste aktive celle
Her er min siste aktive celle celle B13 og jeg vil slette denne med den siste aktive cellen av følgende datatabell.
Trinn-01 :
➤Følg Trinn-01 av metoden -1
7843
Her betyr 2 Kolonne B som jeg har min aktive celle på, kan du endre nummeret i henhold til dine behov.
➤Trykk F5
Resultat :
På denne måten vil du slette siste aktive rad.
Les mer: Excel VBA-kode for å slette rader basert på multiple celleverdier (3 kriterier)
Metode-13: Slette rader som har strenger
Anta at du vil slette radene som har en streng, og for å gjøre dette kan du følge denne metoden.
Trinn-01 :
➤Følg Trinn-01 av Metode-1
4125
Her, “streng” er arknavnet, første radnummer i dette dataområdet er 5 og startkolonnenummeret er 2
Med With -setningen kan du spesifisere et objekt eller brukerdefinert type én gang for en hel serie med setninger.
On Error Resume Next -setningen spesifiserer at når en kjøretidsfeil oppstår, går kontrollen til setningen etter setningen der feilen oppstår.
Last Row og LastColumn returnerer den siste raden og kolonnen i dataområdet.
SpecialCells(xlCellTypeConstants, xlTextValues) velger radene som har tekstverdier i område.
➤Trykk på F5
Resultat :
Etterpå vil du slett radene som har en tekststreng.
Les mer: Excel-snarvei for å slette rader (med bonusteknikker)
Metode-14: Sletting av rad basert på datoer
Her vil jeg slette radene som har en spesiell dato 11/12/2021 (mm/dd/åååå) i denne metode som bruker DATOVERDI-funksjonen .
Trinn-01 :
➤Følg Trinn- 01 av Metode-1
6126
Her er “Dato” arknavnet, første radnummer i dette dataområdet er 5 og kriteriekolonnen (hvilken kolonne har datoer) nummeret er 3 .
With -setningen lar deg spesifisere et objekt eller en brukerdefinert type én gang for en hel serie med utsagn.
Ved gjenoppta feil Neste -setningen spesifiserer at, når en kjøretidsfeil oppstår, går kontrollen til setningen etter setningen der feilen oppstår.
LastRow returnerer den siste raden i dataområdet og her, FOR løkken starter fra den siste raden som er Last Row eller 6 i dette tilfellet, og slutter med den første raden.
DATOVERDI konverterer tekstdatoen til verdi.
Her vil Union returnere
