software

I pasted a long list (report) from word pad into EXCEL. THis list has lots
of empty rows spread throughout this single column list. Can I globally
delete all empty rows?

Select the col. from which you would like to delete the empty rows. Click on
quot;EDIT --gt; Go To --gt; Special --gt; Blanks --gt; OKquot;. This step will highlight only
the blank cells in the selected col. You can now delete all the blank rows at
once.

sk

quot;McLeodquot; wrote:

gt; I pasted a long list (report) from word pad into EXCEL. THis list has lots
gt; of empty rows spread throughout this single column list. Can I globally
gt; delete all empty rows?


The one worded-response I can give you is: macro.

Open the file where you need to erase the rows, open the Macro module
by using the following steps:
Tools gt;gt; Macro gt;gt; Visual Basic Editor

In the Visual Basic window go:
Insert gt;gt; Module

Then, copy/paste the following into the 'Module' window that appears:

Code:
--------------------
Sub DeleteEmptyRows()

Dim LastRow As Long, r As Long

LastRow = ActiveSheet.UsedRange.Row - 1 ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False

For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

Application.ScreenUpdating = True

End Sub

--------------------Finally, press F5.NOTE: If you do this in the file, Excel will give you a warning about
Macros EVERY time you open the file. Alternatively, you can enter the
code in a blank workbook (one that you will not save), switch to the
file where you need it, then back to the module window and press F5.--
ArenaNinja
------------------------------------------------------------------------
ArenaNinja's Profile: www.excelforum.com/member.php...oamp;userid=33624
View this thread: www.excelforum.com/showthread...hreadid=543108
The one worded-response I can give you is: macro.

Open the file where you need to erase the rows, open the Macro module
by using the following steps:
Tools gt;gt; Macro gt;gt; Visual Basic Editor

In the Visual Basic window go:
Insert gt;gt; Module

Then, copy/paste the following into the 'Module' window that appears:

Code:
--------------------
Sub DeleteEmptyRows()

Dim LastRow As Long, r As Long

LastRow = ActiveSheet.UsedRange.Row - 1 ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False

For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

Application.ScreenUpdating = True

End Sub

--------------------Finally, press F5.NOTE: If you do this in the file, Excel will give you a warning about
Macros EVERY time you open the file. Alternatively, you can enter the
code in a blank workbook (one that you will not save), switch to the
file where you need it, then back to the module window and press F5.--
ArenaNinja
------------------------------------------------------------------------
ArenaNinja's Profile: www.excelforum.com/member.php...oamp;userid=33624
View this thread: www.excelforum.com/showthread...hreadid=543108