VBA Radera rader - Exempel på att radera Excel-rader med VBA

Innehållsförteckning

Excel VBA Radera rad

Excel VBA Radera rad

Normalt i Excel-kalkylbladet har vi två olika metoder för att radera rader, en är kortkommandon och en annan genom att använda högerklicka och infoga-metoden, men i VBA måste vi använda delete-kommandot och kalkylbladet för att radera alla rader tillsammans, tricket att detta är att om vi behöver ta bort en enstaka rad ger vi en enstaka radreferens men för flera kolumner ger vi flera radreferenser.

Med hjälp av VBA Radera radmetod kan vi ta bort alla tomma rader och vi kan ta bort raden baserat på cellvärde. Vi kan också ta bort hela raden om någon av cellerna är tomma.

I den här artikeln kommer vi att diskutera metoden "VBA Radera rad." Håll dig upptagen de närmaste 15 till 20 minuterna för att lära dig mer om konceptet.

Hur tar jag bort rad?

Exempel 1

I VBA måste vi nämna raden vi tar bort.

Koda:

Sub DeleteRow_Example1 () Celler (1, 1) Avsluta Sub

Celler (1, 1) betyder första raden första kolumn, dvs A1-cell. Sedan använder vi metoden "radera".

Koda:

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

Nu tar den första cellen bort. Alla värden på höger sida flyttar en cell åt vänster.

Exempel 2

Om du vill ta bort hela raden måste vi använda egenskapen "EntireRow", sedan måste vi använda metoden "ta bort" för att ta bort hela raden i cellen som vi har valt.

Koda:

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

Till exempel har jag angett några tecken i ett Excel-ark enligt följande.

Om jag kör den här koden kommer den att radera hela raden, inte en enda cell.

Exempel # 3

Vi kan radera raden på flera sätt. I exemplet ovan har vi raderat raden med CELLS-egenskapen. Nu ser vi hur du tar bort med ROWS-egenskapen.

Nu måste vi nämna vad som är raden vi behöver ta bort. Låt oss säga att vi måste ta bort ^femte raden.

Använd nu egenskapen “EntireRow”.

Efter att ha valt fastigheten, vad vi behöver göra, dvs metod. Vi måste ta bort raden.

Koda:

Sub DeleteRow_Example3 () Rader (5) .EntireRow. Radera End Sub

Så den här koden tar bort den ^femte raden.

Exempel 4

Ta bort flera rader med hjälp av intervallobjekt

Hur tar vi bort flera rader?

Vi kan använda VBA RANGE-objektet för att ta bort mer än en rad. Antag att du har några värden från A1 till A6-celler.

Nu vill jag radera de första 5 raderna, så jag kan referera till dessa rader genom att använda Range-objektet som "Range (" A1: A5 ")"

Koda:

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

Nu vill jag använda ordet "EntireRow" -egenskap.

Koda:

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

I hela denna rad måste vi utföra metoden för att radera, så använd Delete-metoden.

Koda:

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

Nu raderar de valda raderna.

Exempel # 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 ("Please select the range", "Blank Cells Rows Radetion", Type: = 8) Set DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellType. .Rader End Sub