Excel: Eliminar linha se a célula em determinada coluna estiver em branco?

Pode fazê-lo muito rapidamente se as células estiverem verdadeiramente em branco usando SpecialCells

Manual

• Seleccione a coluna C
• Prima F5, depois Special
• Verifique Blanks, depois OK (veja este passo na imagem ao fundo)
• Apague as linhas que estão agora seleccionadas (e. g. clique com o botão direito do rato na selecção > Delete cells… > Entire row or via the ribbon (see second screenshot))

VBA

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

Aqui está um método manual fácil

1. Aplique um Auto Filter na sua folha
2. Filtrar na coluna C Em branco
3. Seleccione todas as filas visíveis
4. Eliminar Linhas
5. Remover filtro

Este processo pode ser automatizado com VBA, se necessário. Tente executar o macro-gravador para começar

Isto deve funcionar.

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

Pode colocar este código no Módulo Folha (Separador Rato Direito Clique na Folha e seleccione “Ver Código”):

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