Šiame straipsnyje sužinosime, kaip ištrinti eilutes, kai visoje eilutėje nėra duomenų.
Toliau pateikiamas mūsų turimų duomenų momentinis vaizdas:
Šios pamokos esmė yra ta, kad jei pasirinktame diapazone A1: E10 yra pilna tuščia eilutė, tada vba kodas turėtų ištrinti šią eilutę.
Mums reikia atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Įveskite šį kodą į dabartinį darbalapio modulį
Sub DeleteEntireRow ()
Tamsiai ilgas
„Skaičiavimas ir ekrano atnaujinimas išjungiami, kad paspartintumėte makrokomandą
Su taikymu
.Skaičiavimas = xlCalculationManual
.ScreenUpdating = Netiesa
Jei i = pasirinkimas. Eilutės. Skaičiuokite iki 1 veiksmo -1
Jei „WorksheetFunction.CountA“ (Selection.Rows (i)) = 0 Tada
Pasirinkimas. Eilutės (i). Visa eilutė. Ištrinti
Pabaiga Jei
Kitas I.
.Skaičiavimas = xlSkaičiavimasAutomatinis
.ScreenUpdating = Tiesa
Pabaiga su
Pabaiga Sub
- Pirmiausia ištrinkime duomenis rankiniu būdu iš eilės, kad išbandytume kodą.
- Nukopijavus kodą; pasirinkite diapazoną A1: E10 ir rankiniu būdu ištrinkite bet kurią eilutę
- Dabar paleiskite makrokomandą naudodami ALT + F8 klavišą ir pasirinkite DeleteEntireRow
- Tuščia eilutė buvo ištrinta, o visos žemiau esančios eilutės perkeliamos aukštyn.
Tokiu būdu galime ištrinti eilutes naudodami „Microsoft Excel“ naudodami „vba“.
Atsisiųsti-ištrinti eilutes VBA