I am trying to delete all rows that have blank cells in column A in a long dataset (over 60 000 rows in excel)
I have a VBA code that works great when I have less then aprox 32 000 cells:
Sub DelBlankRows() Columns("A:A").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete End Sub
Does anybody know a way so that it works on a large number of rows?
You could try:
Application.ScreenUpdating = False Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Application.ScreenUpdating = True
Application.ScreenUpdating toggles whether updates made in code are visible to the user, and trying
Columns("A:A").SpecialCells(... might save time because it doesn’t actually have to select the cells – untested.