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 Sub3. 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!
