Excel: usuwaj co drugą linię - czy to możliwe?
Za pomocą Microsoft Excel możesz automatycznie usuwać co drugą linię. W tej praktycznej wskazówce wyjaśnimy, jak to działa.
Wstępne: Pokaż narzędzia programistyczne do usuwania co dwa wiersze
- Kliknij przycisk Office w lewym górnym rogu, a następnie wybierz „Opcje programu Excel”.
- Przejdź do „Często używane”. W sekcji „Najczęstsze opcje podczas pracy z programem Excel” włącz opcję „Pokaż kartę programisty na wstążce”.
- Potwierdź zmianę za pomocą „Zapisz”.
Excel: Usuń co drugą linię z kodem programu
Firma Microsoft wydała w tym celu kod programu, którego można użyć. Postępuj w następujący sposób:
- Otwórz plik, w którym znajdują się odpowiednie dane tabeli.
- Teraz kliknij „Narzędzia programistyczne”, a pod „Kod” przejdź do „Visual Basic”.
- Zostanie teraz otwarty edytor Visual Basic. Kliknij „Wstaw”, a następnie „Moduł”.
- Skopiuj następujący kod (bez cudzysłowu) do modułu: „Sub Delete_Every_Other_Row () 'Zmienne wymiarów. Y = False' Zmień to na True, jeśli chcesz„ usunąć wiersze 1, 3, 5 itd. I = 1 Ustaw xRng = Wybór „Pętla jeden raz dla każdego wiersza w zaznaczeniu. Dla xCounter = 1 Do xRng.Rows.Count„ Jeśli Y jest Prawdą, to ... Jeśli Y = Prawda To ”... usuń cały wiersz komórek. xRng.Cells (I) .EntireRow.Delete 'Otherwise ... Else' ... zwiększaj I o jeden, abyśmy mogli przechodzić przez zakres. I = I + 1 End Jeśli 'Jeśli Y jest prawdą, zrób to False; jeśli Y jest False, zrób to prawda. Y = nie Y Następny xCounter End Sub ”
- Teraz wróć do pliku Excela i zaznacz kolumny, z których co drugi wiersz powinien zostać usunięty.
- Następnie kliknij „Makra” pod „Deweloper” w obszarze „Kod”. Tam zobaczysz makro „Delete_Every_Other_Row”, które zaczynasz od „Execute”.
Ta praktyczna wskazówka została zrealizowana w programie Excel 2007. Za pomocą programu Excel można również obliczyć odsetki złożone lub stawkę trzy stawkową.