VBA Slet række

I Excel for at slette en række, har vi en genvej til at bruge CTRL + - eller vi kan vælge rækken og højreklikke på den og slette den. Men i VBA har vi gjort det ved at skrive en kode til det. Metoden til at slette en række i VBA er først vi nødt til at identificere hvilken række, der skal slettes, og så kan vi slette den. I denne artikel lærer vi forskellige illustrationer om, hvordan man sletter en række i VBA.

I VBA bruges Slet række til at slette enten et sæt rækker eller en enkelt række afhængigt af situationerne. I lighed med Excel-regneark kan vi bruge makroer eller VBA til at slette rækkerne i et Excel-regneark. Dette hjælper, når der er mange data med os, og vi kan ikke gøre det manuelt.

Syntaks for at slette række i Excel VBA

Syntaks for at slette en række i Excel er som nedenfor.

Worksheets.Rows (Row #). Slet

Der er også andre metoder til at slette rækker ved hjælp af VBA som følger.

Range ( ”Cell”). EntireRow.Delete

Hvad ovenstående udsagn gør, er at det vil slette rækken for den givne række. For eksempel, hvis vi skriver Range ("A1"). HeleRow.Delete, vil den første række blive slettet, da celle A1 hører til den første række.

Vi kan også bruge rækker (række_nummer) .delete til at slette en række.

Sådan slettes række i Excel ved hjælp af VBA?

Nedenfor er nogle eksempler på, hvordan man sletter en række i Excel ved hjælp af VBA.

Du kan downloade denne VBA Slet række Excel-skabelon her - VBA Slet række Excel-skabelon

VBA Delete Row - Eksempel # 1

Lad den første enkle metode bruges til at slette rækker. Til demonstrationsformål indtaster jeg en tilfældig værdi i celle A1 og B1. Se det nedenfor.

Hvad jeg vil se, er, hvis jeg bruger koden, der er skrevet over hele rækken, vil blive slettet, eller en enkelt celle vil blive slettet.

Bemærk: For at bruge Excel VBA skal vi have udvikler-fanen aktiveret fra fanen Filer i afsnittet med indstillinger.

Følg nedenstående trin for at slette række i Excel ved hjælp af VBA.

Trin 1: Gå til udviklerens fane Klik på Visual Basic for at åbne VBA Editor.

Trin 2: I kodesegmentet erklæres en underfunktion for at begynde at skrive koden.

Kode:

 Undereksempel () Slutundert

Trin 3: Skriv nu følgende kode for at slette rækken.

Kode:

 Subprøve () Område ("A1"). HeleRow.Delete slutund

Trin 4: Kør denne kode ved at trykke på F5 eller Run-knappen og se output.

Når vi kører koden, kan vi se, at værdierne fra både celle A1 og B1 fjernes, da hele den første række er blevet slettet.

VBA Delete Row - Eksempel # 2

Tidligere i det første eksempel har jeg kun slettet en enkelt række. Men hvad med, hvis vi skal slette flere rækker. Til demonstrationsformål har jeg følgende data som vist nedenfor,

Jeg vil slette alle de første fem rækker. Følg nedenstående trin for at slette række i Excel ved hjælp af VBA.

Trin 1: Klik på Visual Basic for at åbne VBA Editor i udviklerens fane.

Trin 2: I koden erklæres en underfunktion for at begynde at skrive koden,

Kode:

 Underprøve1 () Slutundert

Trin 3: Skriv følgende kode vist nedenfor for at slette hele fem rækker.

Kode:

 Underprøve1 () Område ("A1: B5"). TotalRow.Delete End Sub

Trin 4: Kør denne kode ved at trykke på F5 eller Run-knappen og se output.

Når vi kører koden, ser vi følgende resultat. Hele dataene er blevet slettet, betyder at de første fem rækker er blevet slettet, da vi havde data i de første fem rækker.

Bemærk: Jeg vil indsætte dataene i excel-prøvearket til demonstration.

VBA Delete Row - Eksempel # 3

Nu har vi data for medarbejderne, og deres salg sker på tre måneder, januar, februar og marts. En af medarbejderne havde orlov og kunne ikke sælge i tre måneder, så cellerne er tomme for ham. Vores mål er at finde den tomme række og slette den fra dataene.

Se på nedenstående data,

Følg nedenstående trin for at slette række i Excel ved hjælp af VBA.

Trin 1: Fra udviklerens fane skal du klikke på Visual Basic for at åbne en visual basic editor.

Trin 2: Angiv underfunktionen i kodevinduet for at begynde at skrive koden,

Kode:

 Undereksempel2 () Slutundert

Trin 3: Skriv følgende kode for at slette de rækker, der har tomme celler.

Kode:

 Underprøve2 () Område ("A1: D5"). SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

SpecialCells er en funktion i VBA, der returnerer os alle celler, der matcher vores forhold, og vores tilstand var de tomme celler i dette område, så vi brugte en xlCellTypeBlanks-funktion.

Trin 4: Kør denne kode ved at trykke på F5 eller Run-knappen og se output.

Når vi kører koden, kan vi se, at den række, der havde de tomme celler, er blevet slettet.

Bemærk: Jeg vil igen indsætte dataene i excel-prøvearket til demonstration.

VBA Delete Row - Eksempel # 4

Der er nogle andre lignende metoder til at slette rækkerne, såsom at bruge rækkerne og slette-funktionen. For eksempel har vi data i række 4, og jeg vil slette række 4. Vi kan give en kommando til at excel til at slette 4. række i dataene. Se på skærmbilledet nedenfor. Jeg har en tilfældig data i række 4 i den første celle.

Følg nedenstående trin for at slette række i Excel ved hjælp af VBA.

Trin 1: Åbn VBA Editor ved at klikke på Visual Basic fra fanebladet Udvikler,

Trin 2: Angiv underfunktionen for at begynde at skrive koden.

Kode:

 Undereksempel3 () Slutundersøgelse

Trin 3: Skriv følgende kode for at slette den 4. række.

Kode:

 Underprøve3 () Rækker (4). Slet slutunderdel

Trin 4: Kør denne kode ved at trykke på F5 eller Run-knappen og se output.

Data er slettet, da den 4. række er slettet i sig selv.

VBA Delete Row - Eksempel # 5

I ovenstående kode har vi givet området eller rækken, der skal slettes i selve koden. Lad os nu komme med input fra brugeren, og han kan slette rækken fra en given data. For eksempel har jeg data om medarbejdere og salg gjorde som nedenunder, og jeg vil have en bruger til at vælge intervallet fra hvor meget data brugeren ønsker at slette rækkerne med tomme celler. Se på nedenstående data,

Følg nedenstående trin for at slette række i Excel ved hjælp af VBA.

Trin 1: Åbn VB Editor ved at klikke på Visual Basic fra udviklerens fane,

Trin 2: Angiv en underfunktion for at begynde at skrive koden.

Kode:

 Undereksempel4 () Slutundert

Trin 2: Angiv to variabler som rækkevidde, A og B.

Kode:

 Underprøve4 () Dim A As Range Dim B As Range End Sub

Trin 3: For at tage input fra brugeren til et valg af rækkevidde, der skal slettes, bruger vi input box-funktionen, og vi gemmer denne input i en variabel defineret ovenfor.

Kode:

 Undereksempel4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) End Sub

Trin 4: Indstil B = A, så input fra brugeren kan gemmes i område B.

Kode:

 Undereksempel4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Sæt B = A End Sub

Trin 5: Nu sletter vi de data, der har tomme celler, fra det interval, som brugeren har valgt.

Kode:

 Undereksempel4 () Dim A As Range Dim B As Range Set A = Application.InputBox ("Select Data", "Sample Macro", Type: = 8) Set B = A A.SpecialCells (xlCellTypeBlanks) .EntireRow.Delete End Sub

Trin 6: Kør nu koden fra den medfølgende køreknap.

Trin 6: En inputboks vises.

Trin 7: Vælg området fra A1: D8 i dette eksempel. Tryk på OK for at se resultatet.

Dataene med tomme celler er blevet slettet.

Ting at huske

Der er et par ting, vi skal huske om Slet række i Excel VBA:

  • Vi kan slette rækken baseret på en enkelt celle.
  • Vi kan slette flere rækker ved at give en række celler.
  • Vi kan også slette rækker ved at tage input fra brugeren.

Anbefalede artikler

Dette har været en guide til VBA Delete Row. Her diskuterede vi hvordan man kan slette række i Excel VBA sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. Sådan bruges Erstat-funktion i VBA?
  2. Excel Slet rækkevej
  3. VBA sag | Excel-tricks
  4. Excel indsæt række genvej
  5. Sådan summeres flere rækker i Excel?

Kategori:

VBA