„Excel“: ištrinti kas antrą eilutę - ar tai įmanoma?

Naudodami „Microsoft Excel“ galite automatiškai ištrinti kas antrą eilutę. Šiame praktiniame patarime paaiškinsime, kaip tai veikia.

Preliminarus: parodykite kūrėjo įrankius, kad galėtumėte ištrinti kas dvi eilutes

1. Spustelėkite „Office“ mygtuką, esantį viršutiniame kairiajame kampe, tada pasirinkite „Excel parinktys“.
2. Eikite į „Dažnai naudojamas“. Skiltyje „Dažniausios parinktys dirbant su„ Excel “įjunkite parinktį„ Rodyti kūrėjo skirtuką juostelėje “.
3. Patvirtinkite pakeitimą spausdami „Išsaugoti“.

„Excel“: kas antrą eilutę ištrinkite su programos kodu

Tam tikslui „Microsoft“ išleido programos kodą, kurį galite naudoti. Atlikite šiuos veiksmus:

1. Atidarykite failą, kuriame yra atitinkami lentelės duomenys.
2. Dabar spustelėkite „Kūrėjo įrankiai“ ir skiltyje „Kodas“ eikite į „Visual Basic“.
3. Dabar atidaromas „Visual Basic“ redaktorius. Čia spustelėkite „Įterpti“, o ten - „Modulis“.
4. Nukopijuokite šį kodą (be kabučių) į modulį: "Sub Delete_Every_Other_Row ()" Dydžio kintamieji. Y = Netiesa "Pakeiskite tai į True, jei norite 'ištrinti 1, 3, 5 ir tt eilutes. I = 1 Nustatykite xRng = Selection 'Kartokite kiekvieną pasirinktos eilutės eilutę. XCounter = 1 į xRng.Rows.Count' Jei Y yra tiesa, tada ... Jei Y = teisinga, tada '... ištrinkite visą langelių eilutę. xRng.Cells (I) .EntireRow.Delete 'Priešingu atveju ... Kitas' ... padidinkite I vienetu, kad galėtume pereiti per diapazoną. I = I + 1 Pabaiga Jei 'Jei Y yra tiesa, padarykite klaidingą; jei Y yra klaidinga, padarykite ją tiesa. Y = ne Y Kitas xCounter End Sub "
5. Dabar grįžkite į savo „Excel“ failą ir pažymėkite stulpelius, iš kurių kiekviena antra eilutė turėtų būti ištrinta.
6. Tada srityje „Kodas“ spustelėkite „Makro“, esančią skiltyje „Kūrėjas“. Ten pamatysite makrokomandą „Delete_Every_Other_Row“, kurią pradedate su „Vykdyti“.

Šis praktinis patarimas buvo įgyvendintas naudojant „Excel 2007“. „Excel“ taip pat galite apskaičiuoti sudėtines palūkanas arba trijų procentų normą.