VBA Rijen verwijderen - Voorbeelden om Excel-rijen te verwijderen met VBA

Inhoudsopgave

Excel VBA Rij verwijderen

Excel VBA Rij verwijderen

Normaal gesproken hebben we in het Excel-werkblad twee verschillende methoden om rijen te verwijderen, de ene is de sneltoets en de andere door de rechtsklik- en invoegmethode te gebruiken, maar in VBA moeten we de verwijderopdracht en de werkbladverklaring gebruiken om rijen samen te verwijderen, de truc om dit is dat als we een enkele rij moeten verwijderen, we een enkele rijverwijzing geven, maar voor de meerdere kolommen geven we meerdere rijverwijzingen.

Met behulp van VBA Delete Row Method kunnen we alle lege rijen verwijderen en kunnen we de rij verwijderen op basis van de celwaarde. We kunnen ook de hele rij verwijderen als een van de cellen leeg is.

In dit artikel bespreken we de methode 'VBA Delete Row'. Houd uzelf de komende 15 tot 20 minuten bezig om meer te weten te komen over het concept.

Hoe rij te verwijderen?

Voorbeeld 1

In VBA moeten we de rij vermelden die we verwijderen.

Code:

Sub DeleteRow_Example1 () Cellen (1, 1) End Sub

Cellen (1, 1) betekent eerste rij eerste kolom, dwz A1 cel. Vervolgens gebruiken we de methode 'verwijderen'.

Code:

Sub DeleteRow_Example1 () Cellen (1, 1) .Verwijder End Sub

Dit zal nu de eerste cel verwijderen. Alle waarden aan de rechterkant verschuiven een cel naar links.

Voorbeeld 2

Als je de hele rij wilt verwijderen, moeten we de eigenschap "Gehele rij" gebruiken, dan moeten we de methode "verwijderen" gebruiken om de hele rij van de cel die we hebben geselecteerd te verwijderen.

Code:

Sub DeleteRow_Example2 () Cellen (1, 1) .EntireRow.Delete End Sub

Ik heb bijvoorbeeld als volgt een paar tekens in een Excel-blad ingevoerd.

Als ik deze code nu uitvoer, wordt de hele rij verwijderd, niet een enkele cel.

Voorbeeld # 3

We kunnen de rij op verschillende manieren verwijderen. In het bovenstaande voorbeeld hebben we de rij verwijderd met behulp van de eigenschap CELLS. Nu zullen we zien hoe u kunt verwijderen met de eigenschap ROWS.

Nu moeten we vermelden wat de rij is die we moeten verwijderen. Laten we zeggen dat we nodig hebben om 5 te verwijderen ^ste rij.

Gebruik nu de eigenschap "Gehele rij".

Na het selecteren van de eigenschap, wat we moeten doen, dwz methode. We moeten de rij verwijderen.

Code:

Sub DeleteRow_Example3 () Rijen (5) .EntireRow.Delete End Sub

Dus, zal deze code de 5 verwijderen ^ste rij.

Voorbeeld # 4

Verwijder meerdere rijen met behulp van een bereikobject

Hoe verwijderen we meerdere rijen?

We kunnen het VBA RANGE-object gebruiken om meer dan één rij te verwijderen. Stel dat u enkele waarden heeft van A1 tot A6-cellen.

Nu wil ik de eerste 5 rijen verwijderen, zodat ik naar deze rijen kan verwijzen door het Range-object te gebruiken als 'Bereik (' A1: A5 ')'

Code:

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

Nu wil ik het woord "Gehele rij" -eigenschap gebruiken.

Code:

Sub DeleteRow_Example4 () Bereik ("A1: A5") Gehele rij einde Sub

In deze hele rij moeten we de verwijderingsmethode uitvoeren, dus gebruik de methode Verwijderen.

Code:

Sub DeleteRow_Example4 () Bereik ("A1: A5"). Gehele rij.Delete einde Sub

Dit zal nu de geselecteerde rijen verwijderen.

Voorbeeld # 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 ("Selecteer het bereik", "Lege cellen rijen verwijderen", Type: = 8) Set DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellTypeRanks). .Verwijder End Sub