Šajā rakstā mēs uzzināsim, kā izdzēst rindas, ja visā rindā nav datu.
Tālāk ir sniegts mūsu rīcībā esošo datu momentuzņēmums:
Šīs apmācības pamatā ir ideja, ja atlasītajā diapazonā A1: E10 ir kāda tukša rinda, tad vba kodam šī rinda ir jāizdzēš.
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Ievadiet šādu kodu pašreizējā darblapas modulī
Sub DeleteEntireRow ()
Dim un tik ilgi
"Lai paātrinātu makro, tiek izslēgta aprēķināšana un ekrāna atjaunināšana
Ar pieteikumu
.Calculation = xlCalculationManual
.ScreenUpdating = Nepareizi
I = Atlase. Rindas. Skaitīt līdz 1. solim -1
Ja WorksheetFunction.CountA (Selection.Rows (i)) = 0 Tad
Atlase. Rindas (i). Visa rinda. Dzēst
Beigas Ja
Tālāk i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = Patiess
Beigt ar
Beigt apakš
- Vispirms manuāli izdzēsīsim datus pēc kārtas, lai pārbaudītu mūsu kodu.
- Pēc koda kopēšanas; atlasiet diapazonu A1: E10 un manuāli izdzēsiet jebkuru rindu
- Tagad palaidiet makro, izmantojot taustiņu ALT + F8 un atlasiet DeleteEntireRow
- Tukšā rinda ir izdzēsta, un visas zemāk esošās rindas tiek pārvietotas uz augšu.
Tādā veidā mēs varam izdzēst rindas, izmantojot Microsoft Excel, izmantojot vba.
Lejupielādēt-dzēst rindas VBA