remove multiple blank lines after import

[glwbco]

How can I remove multiple blank Rows after importing data without choosing 2000 different blank rows individually?

 

[Cbrine]

What are the rules you are looking for?
Can we assume that if Column A is blank, then everything in the row is blank and delete that entire row?

 

[MickG]

Hi, Try:-

[COLOR="Navy"]Sub[/COLOR] MG31Jul33
ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Rows.Delete
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[glwbco]

Yes, the entire row is blank. The row is not needed at all. The txt comes in out of a dos program that has a blank row between rows of data.

 

[glwbco]

Mick,
Where do I place this formula? Sorry I am a new excel user.

 

[MickG]

Hi, Right click sheet Tab, Select "View Code" , (VB Window Appears)
On VB Tool Bar Click "Insert", "Module", (New window appears.)
Paste entire code in VB Window.
Close VB Window.
Click "Alt + F8", Macro Dialog Box appears.
Select Macro Name you've just Pasted.
On R/H/S of Dialog Box , Click "Run".
Blank Rows should now be Deleted
This Bit of Code will remove All Blank Rows Within Your Data.
Regard Mick

 

[texasalynn]

or you could create a auto filter and select blanks, highlight the rows and delete