Excel: odstranit každý druhý řádek - je to možné?
V aplikaci Microsoft Excel můžete automaticky odstranit každý druhý řádek. V tomto praktickém tipu si vysvětlíme, jak to funguje.
Předběžné: Zobrazit nástroje pro vývojáře k odstranění každé dva řádky
- Klikněte na tlačítko Office v levém horním rohu a poté vyberte „Možnosti aplikace Excel“.
- Přejděte na „Často používané“. V části „Nejběžnější možnosti při práci s Excelem“ povolte možnost „Zobrazit kartu vývojáře na pásu karet“.
- Potvrďte změnu tlačítkem „Uložit“.
Excel: Nechte každý druhý řádek smazat pomocí programového kódu
Společnost Microsoft vydala pro tento účel programový kód, který můžete použít. Postupujte takto:
- Otevřete soubor, ve kterém jsou umístěna odpovídající data tabulky.
- Nyní klikněte na „Vývojářské nástroje“ a v části „Kód“ přejděte na „Visual Basic“.
- Otevře se Editor jazyka. Zde klikněte na "Vložit" a tam na "Modul".
- Zkopírujte do modulu následující kód (bez uvozovek): "Sub Delete_Every_Other_Row () 'Proměnné dimenze. Y = False' Pokud chcete, smažte řádky 1, 3, 5 atd., Změňte tento na true. I = 1 Set xRng = Selection 'Smyčka jednou pro každý řádek ve výběru. Pro xCounter = 1 To xRng.Rows.Count' Pokud Y je True, pak ... If Y = True Then '... vymaž celý řádek buněk. xRng.Cells (I) .EntireRow.Delete 'Jinak ... Else' ... přírůstek I po jednom, takže můžeme procházet rozsahem I = I + 1 End If 'Pokud Y je True, udělej to False; pokud Y je False, udělej to pravda. Y = Ne Y Další xCounter End Sub "
- Nyní přejděte zpět do souboru aplikace Excel a označte sloupce, z nichž by měl být každý druhý řádek odstraněn.
- Poté klikněte na "Makra" pod "Vývojář" v oblasti "Kód". Tam uvidíte makro "Delete_Every_Other_Row", které začnete "Execute".
Tento praktický tip byl realizován v Excelu 2007. V aplikaci Excel můžete také vypočítat složený úrok nebo sazbu ve třech sazbách.