VBA Poista rivit - Esimerkkejä Excel-rivien poistamisesta VBA: lla

Sisällysluettelo

Excel VBA Poista rivi

Excel VBA Poista rivi

Normaalisti excel-laskentataulukossa meillä on kaksi erilaista tapaa poistaa rivit, joista yksi on pikanäppäin ja toinen käyttämällä hiiren kakkospainikkeella ja lisäysmenetelmää, mutta VBA: ssa meidän on käytettävä Poista-komentoa ja laskentataulukko-käskyä kaikkien rivien poistamiseksi yhdessä, temppu tämä on, että jos meidän on poistettava yksi rivi, annamme yhden rivin viitteen, mutta useille sarakkeille annamme useita riviviittauksia.

VBA Delete Row Method -menetelmällä voimme poistaa kaikki tyhjät rivit ja voimme poistaa rivin solun arvon perusteella. Voimme myös poistaa koko rivin, jos jokin soluista on tyhjä.

Tässä artikkelissa käsitellään menetelmää "VBA Poista rivi". Pidä itsesi varattuina seuraavat 15-20 minuuttia oppiaksesi käsitteestä.

Kuinka poistaa rivi?

Esimerkki 1

VBA: ssa meidän on mainittava poistettava rivi.

Koodi:

Sub DeleteRow_Example1 () Solut (1, 1) End Sub

Solut (1, 1) tarkoittavat ensimmäisen rivin ensimmäistä saraketta eli A1-solua. Sitten käytämme menetelmää "poista".

Koodi:

Sub DeleteRow_Example1 () Solut (1, 1). Poista End Sub

Nyt tämä poistaa ensimmäisen solun. Kaikki oikean puolen arvot siirtävät yhden solun vasemmalle.

Esimerkki 2

Jos haluat poistaa koko rivin, meidän on käytettävä ominaisuutta EntireRow. Sitten meidän on käytettävä menetelmää "poista" poistamaan koko valitsemamme solun rivi.

Koodi:

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

Esimerkiksi olen kirjoittanut muutaman merkin Excel-taulukoon seuraavasti.

Jos suoritan tämän koodin, se poistaa koko rivin, ei yksittäistä solua.

Esimerkki 3

Voimme poistaa rivin useilla tavoilla. Yllä olevassa esimerkissä olemme poistaneet rivin käyttämällä CELLS-ominaisuutta. Nyt näemme kuinka poistaa käyttämällä ROWS-ominaisuutta.

Nyt meidän on mainittava, mikä rivi on poistettava. Sanotaan tarvitse poistaa 5 ^th rivi.

Käytä nyt omaisuutta ”EntireRow”.

Valittuamme omaisuuden, mitä meidän on tehtävä eli menetelmä. Meidän on poistettava rivi.

Koodi:

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

Joten tämä koodi poistaa ^viidennen rivin.

Esimerkki 4

Poista useita rivejä käyttämällä Range Object -ohjelmaa

Kuinka poistamme useita rivejä?

VBA RANGE -objektilla voidaan poistaa useampi kuin yksi rivi. Oletetaan, että sinulla on joitain arvoja A1-A6-soluista.

Haluan nyt poistaa viisi ensimmäistä riviä, jotta voin viitata näihin riveihin käyttämällä Range-objektia "Range (" A1: A5 ")"

Koodi:

Sub DeleteRow_Example4 () -alue ("A1: A5") Loppu Sub

Nyt haluan käyttää sanaa ”EntireRow”.

Koodi:

Sub DeleteRow_Example4 () -alue ("A1: A5"). EntireRow End Sub

Koko tällä rivillä meidän on suoritettava poistomenetelmä, joten käytä Poista-menetelmää.

Koodi:

Sub DeleteRow_Example4 () -alue ("A1: A5"). EntireRow.Delete End Sub

Nyt tämä poistaa valitut rivit.

Esimerkki 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 ("Valitse alue", "Tyhjien solujen rivien poisto", tyyppi: = 8) Aseta DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellTy). .Poista End Sub