Excel: Usuń wiersz, jeśli komórka w danej kolumnie jest pusta?

Question

2012-09-15 03:05:46 +0000 2012-09-15 03:05:46 +0000

24

Excel: Usuń wiersz, jeśli komórka w danej kolumnie jest pusta?

Jestem kompletnym nowicjuszem w Excelu, więc proszę mi wybaczyć, jeśli jest to coś łatwego do zrobienia. Przejrzałem wiele opcji, ale nie mogłem znaleźć tego, czego potrzebowałem.

Zasadniczo, chcę usunąć wszystkie wiersze, które nie zawierają wartości w kolumnie C. Jak bym to zrobił?

Robię to teraz ręcznie dla ponad 5000 produktów i doprowadza mnie to do szaleństwa.

microsoft-excel

Source

John http://superuser.stackexchange.com/users/169588

Réponses (4)

Questions connexes

6

Jak mogę uzyskać różne/jednakowe wartości w kolumnie w Excelu? 286

13

Najłatwiejszy sposób otwierania plików CSV z przecinkami w Excelu 203

9

Jak mogę "grupować według" i sumować kolumny w Excelu? 153

10

Jak łatwo zmienić kolejność wierszy w Excelu metodą "przeciągnij i upuść" lub "przenieś w górę" lub "przenieś w dół"? 148

10

Jak zainstalować pip i easy_install w systemie CentOS 24

brettdj http://superuser.stackexchange.com/users/169588 · Answer 1 · 2012-09-15 06:08:10 +0000

Możesz to zrobić bardzo szybko, jeśli komórki są naprawdę puste używając SpecialCells

Ręcznie

Wybierz kolumnę C
Naciśnij F5, następnie Special
Sprawdź Blanks, następnie OK (zobacz ten krok na zdjęciu na dole)
Usuń zaznaczone teraz wiersze (e. g. kliknięcie prawym przyciskiem myszy w zaznaczenie > Kasuj komórki… > Entire row lub przez wstążkę (patrz drugi zrzut ekranu)

VBA

Sub QuickCull()
    On Error Resume Next
    Columns("C").SpecialCells(xlBlanks).EntireRow.Delete
End Sub

chris neilsen http://superuser.stackexchange.com/users/169588 · Answer 2 · 2012-09-15 03:41:57 +0000

9

2012-09-15 03:41:57 +0000

Oto prosta metoda ręczna

Zastosuj Auto Filter na arkuszu
Filtr na kolumnie C Puste
Wybierz wszystkie widoczne rzędy
Usuń wiersze
Usuń filtr

Proces ten może być zautomatyzowany z VBA, jeśli jest to wymagane. Spróbuj uruchomić makrokontroler, aby rozpocząć.

Source

chris neilsen http://superuser.stackexchange.com/users/169588

Nick http://superuser.stackexchange.com/users/169588 · Answer 3 · 2016-02-19 16:18:47 +0000

0

2016-02-19 16:18:47 +0000

To powinno zadziałać.

Columns("C:C").Select
Set rngRange = Selection.CurrentRegion
lngNumRows = rngRange.Rows.Count
lngFirstRow = rngRange.Row
lngLastRow = lngFirstRow + lngNumRows - 1
lngCompareColumn = ActiveCell.Column
For lngCurrentRow = lngLastRow To lngFirstRow Step -1
If (Cells(lngCurrentRow, lngCompareColumn).Text = "") Then _
Rows(lngCurrentRow).Delete
Next lngCurrentRow

Source

Nick http://superuser.stackexchange.com/users/169588

David http://superuser.stackexchange.com/users/169588 · Answer 4 · 2015-03-22 11:48:37 +0000

Możesz umieścić ten kod w module arkusza (zakładka Arkusz Kliknij prawym przyciskiem myszy i wybierz “Zobacz kod”):

Sub Delete_Blank_Rows()

'Deletes the entire row within the selection if the ENTIRE row contains no data.

'We use Long in case they have over 32,767 rows selected.

Dim i As Long
Dim LastRow As Integer

'We turn off calculation and screenupdating to speed up the macro.

 With Application
     .Calculation = xlCalculationManual
     .ScreenUpdating = False

     'Reduce the work on the calc and define the range

     LastRow = Range("A" & Rows.Count).End(xlUp).Row
     Range("A2:A" & LastRow).Select

     'We work backwards because we are deleting rows.

     For i = Selection.Rows.Count To 1 Step -1
          If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
              Selection.Rows(i).EntireRow.Delete
          End If
     Next i

    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With

End Sub