VBA ridade kustutamine - Näited Exceli ridade kustutamiseks VBA abil

Lang L: none (table-of-contents)

Exceli VBA rida kustutamine

Exceli VBA rida kustutamine

Tavaliselt on Exceli töölehes ridade kustutamiseks kaks erinevat meetodit, millest üks on klaviatuuri otsetee ja teine, kasutades paremklõpsamise ja sisestamise meetodit, kuid VBA-s peame kõigi ridade kustutamiseks kasutama käsku Kustuta ja töölehe käsku, trikk see on see, et kui peame ühe rida kustutama, anname ühe rea viite, kuid mitme veeru jaoks mitu rida.

Kasutades VBA Kustuta reameetodit, saame kustutada kõik tühjad read ja rea kustutada lahtri väärtuse põhjal. Samuti võime kogu rea kustutada, kui mõni lahtritest on tühi.

Selles artiklis käsitleme meetodit “VBA Kustuta rida”. Mõiste tundmaõppimiseks hoidke end järgmise 15–20 minuti jooksul hõivatud.

Kuidas rida kustutada?

Näide 1

VBA-s peame mainima rida, mille kustutame.

Kood:

Alam DeleteRow_Example1 () Lahtrid (1, 1) Lõpeta alam

Lahtrid (1, 1) tähendab esimese rea esimest veergu, st A1 lahtrit. Seejärel kasutame meetodit "kustuta".

Kood:

Alam DeleteRow_Example1 () lahtrid (1, 1). Kustutage lõpu Alam

Nüüd see kustutab esimese lahtri. Kõik parempoolsed väärtused nihutavad ühe lahtri vasakule.

Näide 2

Kui soovite kogu rea kustutada, peame kasutama atribuuti „EntireRow”, seejärel peame kogu valitud lahtrirea kustutamiseks kasutama meetodit „kustuta”.

Kood:

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

Näiteks olen Exceli lehele sisestanud mõned tähemärgid järgmiselt.

Kui ma selle koodi käivitan, kustutab see kogu rea, mitte ühe lahtri.

Näide # 3

Rida saab kustutada mitmel viisil. Ülaltoodud näites oleme rea kustutanud, kasutades omadust CELLS. Nüüd näeme, kuidas kustutada vara ROWS abil.

Nüüd peame mainima, milline on rida, mille peame kustutama. Olgu meil vaja kustutada 5 ^th rida.

Nüüd kasutage atribuuti “EntireRow”.

Pärast atribuudi valimist, mida me peame tegema, st meetod. Me peame rida kustutama.

Kood:

Alam DeleteRow_Example3 () read (5) .EntireRow.Delete End Sub

Niisiis, see kood kustutab 5 ^th rida.

Näide 4

Kustutage mitu rida, kasutades vahemiku objekti

Kuidas kustutada mitu rida?

Objekti VBA RANGE abil saame kustutada mitu rida. Oletame, et teil on lahtritest A1 kuni A6 mõned väärtused.

Nüüd tahan esimesed 5 rida kustutada, et saaksin nendele ridadele viidata, kasutades objekti Range kui „Range („ A1: A5 ”)”

Kood:

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

Nüüd tahan kasutada sõna „EntireRow”.

Kood:

Sub DeleteRow_Example4 () vahemik ("A1: A5"). EntireRow End alam

Kogu selles reas peame teostama kustutamise meetodi, seega kasutage meetodit Kustuta.

Kood:

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

Nüüd see kustutab valitud read.

Näide 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 ("Palun valige vahemik", "Tühjade lahtriridade kustutamine", Type: = 8) Set DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellTy). . Kustuta lõpu alam