VBA Slet rækker - Eksempler på at slette Excel-rækker ved hjælp af VBA

Indholdsfortegnelse

Excel VBA Slet række

Excel VBA Slet række

Normalt i Excel-regneark har vi to forskellige metoder til at slette rækker, den ene er tastaturgenvejen, og en anden ved hjælp af højreklik og indsæt metoden, men i VBA skal vi bruge slet kommando og regnearkerklæring til at slette eventuelle rækker sammen, tricket til dette er, at hvis vi har brug for at slette en enkelt række, giver vi en enkelt rækkehenvisning, men for de flere kolonner giver vi flere rækkehenvisninger.

Ved hjælp af VBA Delete Row Method kan vi slette alle de tomme rækker, og vi kan slette rækken baseret på celleværdi. Vi kan også slette hele rækken, hvis nogen af cellerne er tomme.

I denne artikel vil vi diskutere metoden "VBA Delete Row." Hold dig beskæftiget i de næste 15 til 20 minutter for at lære om konceptet.

Sådan slettes række?

Eksempel nr. 1

I VBA skal vi nævne den række, vi sletter.

Kode:

Sub DeleteRow_Example1 () Celler (1, 1) Afslut Sub

Celler (1, 1) betyder første række første kolonne, dvs. A1-celle. Derefter bruger vi metoden "slet".

Kode:

Sub DeleteRow_Example1 () Celler (1, 1). Slet End Sub

Nu sletter dette den første celle. Alle højre sideværdier skifter en celle til venstre.

Eksempel 2

Hvis du vil slette hele rækken, skal vi bruge egenskaben "EntireRow", så skal vi bruge metoden "slet" for at slette hele rækken i den celle, vi har valgt.

Kode:

Sub DeleteRow_Example2 () Celler (1, 1) .EntireRow.Slet End Sub

For eksempel har jeg indtastet et par tegn i et excel-ark som følger.

Nu, hvis jeg kører denne kode, sletter den hele rækken, ikke en enkelt celle.

Eksempel 3

Vi kan slette rækken ved at bruge flere måder. I ovenstående eksempel har vi slettet rækken ved hjælp af CELLS-egenskaben. Nu vil vi se, hvordan du sletter ved hjælp af ROWS-egenskaben.

Nu skal vi nævne, hvad der er den række, vi skal slette. Lad os sige, vi har brug for til at slette 5 ^th række.

Brug nu ejendommen “EntireRow” ejendom.

Efter at have valgt ejendommen, hvad vi skal gøre, dvs. metode. Vi er nødt til at slette rækken.

Kode:

Sub DeleteRow_Example3 () Rækker (5) .EntireRow.Slet End Sub

Så vil denne kode slette de 5 ^th række.

Eksempel 4

Slet flere rækker ved hjælp af områdeobjekt

Hvordan sletter vi flere rækker?

Vi kan bruge VBA RANGE-objektet til at slette mere end en række. Antag, at du har nogle værdier fra A1 til A6-celler.

Nu vil jeg slette de første 5 rækker, så jeg kan henvise til disse rækker ved at bruge Range-objektet som "Range (" A1: A5 ")"

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5") Afslut Sub

Nu vil jeg bruge ordet "EntireRow" egenskab.

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5"). EntireRow End Sub

I hele denne række skal vi udføre metoden til sletning, så brug Slet-metoden.

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5"). EntireRow. Slet End Sub

Nu sletter de valgte rækker.

Eksempel 5

Delete Rows Based On Cell Value

We can also use this “EntireRow.Delete” method to delete the row based on cell value in VBA. For example, I have Yes & No values from cell A1 to A10.

Now we need to delete the rows which have the value “No.” To perform this task, we need to use the function “IF” with loops to delete all the rows which have the value of “No.”

The below code will do the job for us.

Code:

Sub DeleteRow_Example5() Dim k As Integer For k = 10 To 1 Step -1 If Cells(k, 1).Value = "No" Then Cells(k, 1).EntireRow.Delete End If Next k End Sub

Example #6

Delete All the Blank Cells Rows

There are situations where we need to delete the entire row if any of the cells in the range are blank. For example, I have below set of data.

All the colored cells are blank, so I need to delete the entire row. We can perform this task with two sets of code. Below is the code.

Code:

Sub DeleteRow_Example6() Range("A1:F10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

This will identify the blank cells in the range A1 to F10.IF any blank cells are found, they will delete the entire row.

The problem with this code is it will only delete the blank cell’s row only in the range A1 to F10, but if any cells are blank in any other cells, it will not delete. So keeping this in mind, I have written one more code.

Code:

Sub DeleteRow_Example7 () Dim RangeToDelete As Range Dim DeletionRange As Range Set RangeToDelete = Application.InputBox ("Vælg området", "Blanke celler rækker sletning", Type: = 8) Indstil DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellType. .Slet End Sub