Excel: izbrisati vsako drugo vrstico - ali je to mogoče?

Z Microsoft Excel lahko samodejno izbrišete vsako drugo vrstico. V tem praktičnem nasvetu bomo razložili, kako to deluje.

Predhodno: Pokažite orodja za razvijalce za izbris vsaki dve vrstici

Kliknite zgornji levi gumb Office in nato izberite "Možnosti Excela".
Pojdite na »Pogosto uporabljano«. V razdelku »Najpogostejše možnosti pri delu z Excelom« omogočite možnost »Prikaži zavihek razvijalca na traku«.
Spremembo potrdite s "Shrani".

Microsoft je v ta namen izdal programsko kodo, ki jo lahko uporabite. Nadaljujte na naslednji način:

Odprite datoteko, v kateri se nahajajo ustrezni podatki tabele.
Zdaj kliknite na "Orodja za razvijalce" in pod "Koda" pojdite na "Visual Basic".
Odpre se urejevalnik Visual Basic. Tukaj kliknite "Vstavi" in tam na "Modul".
Kopirajte naslednjo kodo (brez narekovajev) v modul: "Sub Delete_Every_Other_Row ()" Dimenzijske spremenljivke. Y = False "Spremenite to v True, če želite izbrisati vrstice 1, 3, 5 in tako naprej. I = 1 Nastavite xRng = Izbira 'En zanke enkrat za vsako vrstico v izboru. Za xCounter = 1 Za xRng.Rows.Count' Če je Y res, potem ... Če je Y = res, potem '... izbrišite celo vrstico celic. xRng.Cells (I) .EntireRow.Delete 'V nasprotnem primeru ... Else' ... povečam I za eno, da lahko krožimo po območju. I = I + 1 End Če je 'Če je Y res, naredite napačno; če je Y je napačno, naj bo res. Y = ni Y Naslednji xCounter End Sub "
Zdaj se vrnite v Excel datoteko in označite stolpce, iz katerih bi bilo treba izbrisati vsako drugo vrstico.
Nato kliknite "Makroni" pod "Razvijalec" v območju "Koda". Tam boste videli makro "Delete_Every_Other_Row", ki ga začnete z "Execute".

Ta praktični nasvet je bil realiziran z Excelom 2007. Z Excelom lahko izračunate tudi obrestne obresti ali tristransko obrestno mero.