Removal of blank rows

[BambiLou]

Without sorting and leaving data as it is received, how do I remove blank rows from workbook

Many thanks
Bambi

 

[Leith Ross]

Hello BambiLou,

This macro will remove all empty rows on the active sheet and shift the rows so there are no breaks in the data. If you are using Excel 2007 or later then there are better ways to remove the blank rows.

Sub RemoveBlankRows()

  Dim LastRow As Long
  Dim R As Long
  
    LastRow = ActiveSheet.UsedRange.Rows.Count - ActiveSheet.UsedRange.Row + 1
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
      For R = LastRow To ActiveSheet.UsedRange.Row Step -1
        If WorksheetFunction.CountA(ActiveSheet.Rows(R).EntireRow) > 0 Then
           ActiveSheet.Rows(R).EntireRow.Delete
        End If
      Next R
  
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdaing = True
    
End Sub

Adding the Macro

1. Copy the macro above pressing the keys CTRL+C
2. Open your workbook
3. Press the keys ALT+F11 to open the Visual Basic Editor
4. Press the keys ALT+I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL+V
   
   [*] Make any custom changes to the macro if needed at this time.
7. Save the Macro by pressing the keys CTRL+S
8. Press the keys ALT+Q to exit the Editor, and return to Excel.

To Run the Macro...
To run the macro from Excel, open the workbook, and press ALT+F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Sincerely,
Leith Ross

 

[jeffreybrown]

Where are the blanks rows? In one column?

If in one column you could use...

Sub DelBlks()
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

This would remove rows from blanks in column A

 

[BambiLou]

You guys are awesome ... Thank you

 

[BambiLou]

Have just tried this macro and unfortunately, there is an error in this section ... would you be able to advise please

Application.ScreenUpdaing = True
Many thanks
Bambi

 

[Leith Ross]

Hello Bambiloou,

Sorry, a word is misspelled. It should read Application.ScreenUpdating= True

Sincerely,
Leith Ross

 

[BambiLou]

Thanks Leith ... only it removes all the data and leaves the blank

I did just copy and paste like you said
Must be doing something wrong ... can you help please

 

[Leith Ross]

Hello BambiLou,

I need more sleep. Found another error. I have tested this version and it works.

Sub RemoveBlankRows()

  Dim LastRow As Long
  Dim R As Long
  
    LastRow = ActiveSheet.UsedRange.Rows.Count - ActiveSheet.UsedRange.Row + 1
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
      For R = LastRow To ActiveSheet.UsedRange.Row Step -1
        If WorksheetFunction.CountA(ActiveSheet.Rows(R).EntireRow) = 0 Then
           X = WorksheetFunction.CountA(ActiveSheet.Rows(R).EntireRow)
           ActiveSheet.Rows(R).EntireRow.Delete
        End If
      Next R
  
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
End Sub

 

[BambiLou]

Awesome ... Thanks a bunch Leith ... That did work

Have a grand day
Cheers
Bambi

 

[Leith Ross]

Hello BambiLou,

Glad it is working. Hope you didn't lose any important data due to my errors.

Sincerely,
Leith Ross