Jak uzupełnić puste wiersze w Excelu? Poradnik krok po kroku

Jak uzupełnić puste wiersze w tabeli Excel danymi? – Triki Excel

Praca z tabelami w Excelu bywa czasem uciążliwa, szczególnie gdy dane zostały zaimportowane w niestandardowy sposób. Przykładowo, zdarza się, że co drugi wiersz w tabeli jest pusty i wymaga uzupełnienia określonymi wartościami. Właśnie taki problem do rozwiązania dała mi koleżanka w pracy, wybrałem rozwiązanie najprostsze z możliwych. Jak uzupełnić puste wiersze w Excelu? W tym artykule pokażę prosty sposób na rozwiązanie takiego problemu.

Przykład problemu

Masz tabelę w Excelu, która wygląda tak:

Chcesz, aby w puste wiersze (parzyste) w kolumnie „Dane” zostały wpisane np. słowo „Brak danych” lub inne wartości według Twojego wyboru.

Jak uzupełnić puste wiersze w Excelu? Rozwiązanie krok po kroku

Metoda 1: Użycie funkcji w Excelu

Dodaj pomocniczą kolumnę obok tabeli, nazwij ją np. „Wynik”.
W pierwszym wierszu kolumny Wynik wprowadź następującą formułę:
Wyjaśnienie:
Skopiuj formułę w dół dla całej kolumny.
Po zakończeniu działania formuły możesz skopiować wartości z kolumny Wynik i wkleić je jako wartości w oryginalnej kolumnie (prawy przycisk myszy → „Wklej specjalnie” → „Wartości”).

=JEŻELI(CZY.PUSTA(B2); "Brak danych"; B2)

Metoda 2: Użycie VBA (Makro)

Jeśli masz większe doświadczenie z Excel lub chcesz automatyzować ten proces, możesz użyć prostego makra VBA.

Otwórz Edytor VBA (skrót: Alt + F11).
Wybierz z menu: Wstaw → Moduł.
Wprowadź poniższy kod:
Zamknij edytor i wróć do Excela.
Uruchom makro (Alt + F8 → wybierz UzupelnijPusteWiersze → Uruchom).

Sub UzupelnijPusteWiersze()
    Dim ws As Worksheet
    Dim rng As Range
    Dim lastRow As Long
    Dim i As Long

    ' Wybierz aktywny arkusz
    Set ws = ActiveSheet

    ' Znajdź ostatni wiersz w kolumnie B (lub innej, w której są dane)
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

    ' Iteruj przez wszystkie wiersze
    For i = 2 To lastRow Step 2
        ' Jeśli komórka jest pusta, uzupełnij danymi
        If ws.Cells(i, 2).Value = "" Then
            ws.Cells(i, 2).Value = "Brak danych"
        End If
    Next i

    MsgBox "Uzupełniono puste wiersze!"
End Sub

Metoda 3: Filtrowanie pustych komórek

Wprowadź w wybranym zakresie np. „Brak danych” i zatwierdź (Ctrl + Enter).
Zaznacz kolumnę z danymi (np. B).
Włącz filtr (Ctrl + Shift + L).
W menu filtra wybierz Puste komórki.

Metoda 4: Python

Dałoby się napisać jeszcze skrypt w Pythonie – no ale to rozwiązanie będzie tak samo optymalne jak VBA więc sobie darujemy.

Wynik końcowy

Po zastosowaniu jednej z metod tabela zostanie uzupełniona:

Podsumowanie

Uzupełnianie pustych wierszy w Excelu może być szybkie i proste dzięki zastosowaniu funkcji, filtrowania lub makr VBA. Wybierz metodę, która najlepiej odpowiada Twoim potrzebom i poziomowi zaawansowania. Excel daje ogromne możliwości automatyzacji pracy, co pozwala zaoszczędzić czas i uniknąć błędów. Mam nadzieję że już wiesz jak uzupełnić puste wiersze w Excelu.