Excel VBA – Delete empty rows

by

How about 

sub foo()
  dim r As Range, rows As Long, i As Long
  Set r = ActiveSheet.Range("A1:Z50")
  rows = r.rows.Count
  For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
  Next
End Sub

More Related Contents:

  1. Duplicate number and it value in column EXCEL [closed]
  2. Loop through files in a folder using VBA?
  3. How to error handle 1004 Error with WorksheetFunction.VLookup?
  4. Force a screen update in Excel VBA
  5. Find all matches in workbook using Excel VBA
  6. Create a new sheet for each unique agent and move all data to each sheet
  7. Set Auto Filtering multiple wildcards
  8. How to make Excel VBA variables available to multiple macros?
  9. Detect merged cells in VBA Excel with MergeArea
  10. Use of symbol # (hash) in VBA Macro
  11. Excel VBA: Can’t get a match, error “Unable to get the Match property of the WorksheetFunction class”
  12. Excel VBA looping through multiple worksheets
  13. When one should use Set [e.g for SpecialCells return value]?
  14. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  15. Is there a faster CountIF
  16. Excel VBA How to detect if something was pasted in a Worksheet
  17. Getting error Procedure too large in VBA Macros (Excel)
  18. How to add data validation to a cell using VBA
  19. How to do late binding in VBA?
  20. Removing the password from a VBA project
  21. How to break long string to multiple lines
  22. How to copy a chart from Excel to PowerPoint?
  23. vba paste not working
  24. mac excel vba loop : from list & then export as pdf
  25. Can Advanced Filter criteria be in the VBA rather than a range?
  26. In Excel VBA, what is the way to check if the web page is fully loaded?
  27. Excel Useform: How to hide application but have icon in the taskbar
  28. Reading Web Pages using Excel VBA
  29. Excel VBA: auto click and open file from website
  30. VBA inheritance, analog of super

Leave a Comment