Excel: ¿Borrar fila si la celda de cierta columna está en blanco?

Question

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

24

Excel: ¿Borrar fila si la celda de cierta columna está en blanco?

Soy un completo novato en Excel, así que por favor discúlpenme si esto es algo fácil de hacer. He mirado muchas opciones pero no he podido encontrar lo que necesitaba.

Básicamente, quiero eliminar todas las filas que no contengan un valor en la columna C. ¿Cómo lo haría?

Estoy haciendo esto manualmente ahora mismo para más de 5000 productos y me está volviendo loco.

microsoft-excel

Fuente

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

Respuestas (4)

Preguntas relacionadas

6

¿Cómo obtengo los valores distintivos/únicos en una columna de Excel? 286

13

La forma más fácil de abrir CSV con comas en Excel 203

9

¿Cómo puedo "agrupar por" y sumar una columna en Excel? 153

10

¿Cómo reordenar fácilmente las filas en Excel con arrastrar y soltar o mover hacia arriba o hacia abajo? 148

3

¿Qué es el servicio CDPUserSvc? 42

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

Puedes hacer esto muy rápidamente si las celdas están realmente en blanco usando SpecialCells

Manual

Seleccionar la columna C
Pulsar F5, luego Special
Marcar Blanks, luego OK (ver este paso en la foto de abajo)
Eliminar las filas que ahora están seleccionadas (e. g. click derecho en la selección > Borrar celdas… > Terminar fila o a través de la cinta (ver segunda captura de pantalla)

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

Aquí hay un método manual fácil

Aplique un Auto Filter a su hoja
Filtro en la columna C Blanco
Seleccionar todas las filas visibles
Eliminar filas
Eliminar el filtro

Este proceso puede automatizarse con VBA si es necesario. Pruebe a ejecutar la grabadora de macros para empezar

Fuente

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

Esto debería 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

Fuente

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

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

Puedes poner este código en el módulo de la hoja (Click con el botón derecho del ratón en la pestaña de la hoja y seleccionar “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