Selles artiklis õpime, kuidas ridu kustutada, kui terves reas pole andmeid.
Allpool on ülevaade meie andmetest:
Selle õpetuse kontseptsioon seisneb selles, et kui valitud vahemikus A1: E10 on mõni tühi rida, peaks vba -kood selle rea kustutama.
Peame järgima järgmisi samme:
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
- Sisestage praeguses töölehe moodulis järgmine kood
Sub DeleteEntireRow ()
Dim i As Long
Makro kiirendamiseks on arvutamine ja ekraani värskendamine välja lülitatud
Koos rakendusega
.Calculation = xlCalculationManual
.ScreenUpdating = Vale
I = valik. Read. Loendamine 1. sammu juurde -1
Kui WorksheetFunction.CountA (Selection.Rows (i)) = 0 Siis
Valik. Ridad (i). Kogu rida. Kustuta
Lõpp Kui
Edasi i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = Tõsi
Lõpeta
End Sub
- Koodi testimiseks kustutame esmalt andmed järjest käsitsi.
- Pärast koodi kopeerimist; valige vahemik A1: E10 ja kustutage mis tahes rida käsitsi
- Nüüd käivitage makro, kasutades klahvi ALT + F8 ja valige DeleteEntireRow
- Tühi rida on kustutatud ja kõik allpool olevad read on ülespoole nihutatud.
Sel viisil saame Microsoft Excelis vba abil ridu kustutada.
Rida allalaadimine-kustutamine VBA-s