Jak usunąć wiersze z brakującymi / pustymi wartościami w niektórych kolumnach w programie Excel?
W niektórych przypadkach może być konieczne usunięcie całych wierszy z brakującą wartością lub pustą komórką w zakresie komórek w programie Excel. W tym artykule dowiesz się, jak rozwiązać ten problem.
Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach z kodem VBA
Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach z kodem VBA
Przypuśćmy, że chcesz usunąć wiersze, jeśli brakuje wartości w kolumnach B i D, jak pokazano poniżej. Aby to osiągnąć, możesz uruchomić następujący kod VBA.
1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach
Sub DeleteRows()
Dim I As Integer
Dim xCount As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
Exit Sub
End If
xCount = xRg.Rows.Count
For I = xCount To 1 Step -1
If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
xRg.Rows(I).EntireRow.Delete
End If
Next
End Sub
3. naciśnij F5 klucz do uruchomienia kodu. Następnie Kutools for Excel pojawi się okno dialogowe, wybierz zakres kolumn, które chcesz sprawdzić, czy brakuje wartości, a następnie kliknij OK przycisk.
Po kliknięciu OK przycisk, możesz zobaczyć, że wszystkie wiersze z brakującą wartością w kolumnie B i D są natychmiast usuwane. Zobacz zrzut ekranu:
Uwagi: Nie możesz wybrać wielu zakresów do jednoczesnego działania. Jeśli brakująca wartość istnieje w wielu kolumnach i chcesz usunąć wszystkie wiersze, możesz powtórzyć powyższy krok 3 z jednej kolumny do drugiej.
Z łatwością wypełnij wszystkie puste komórki określoną wartością w programie Excel
Połączenia Wypełnij puste komórki użyteczność Kutools for Excel może pomóc w łatwej obsłudze pustych komórek w programie Excel. Na przykład możesz wypełnić wszystkie puste komórki w wybranym zakresie stałą wartością, wypełnić puste komórki na podstawie wartości w górnej, dolnej, lewej lub prawej komórce lub możesz wypełnić puste komórki wartościami liniowymi. Zobacz zrzut ekranu:
Pobierz i wypróbuj teraz! (30-dzień wolny szlak)
Powiązane artykuły:
- Jak usunąć wiersze, jeśli komórka jest większa / mniejsza niż określona wartość w programie Excel?
- Jak usunąć wszystkie wiersze z wyjątkiem pierwszego wiersza nagłówka w programie Excel?
- Jak usunąć wszystkie wiersze poniżej określonego wiersza lub aktywnej komórki w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
