About Us

Grd

Works for me

Thanks again

"Martin Fishlock" wrote:

Here is a simple little routine that deletes rows, modify it as needed.

Option Explicit

Sub DeleteBlankRows()
' written by Martin Fishlock
Dim ws As Worksheet
Dim r As Long
Set ws = ActiveSheet
ws.Range("A65536").End(xlUp).Select ' find last row
r = ActiveCell.Row
While r 0 ' work from the bottom up
If ws.Range("A" & r) = "" Then ws.Rows(r).Delete ' decide on which
cell to check
r = r - 1
Wend
Set ws = Nothing
End Sub

"Grd" wrote:

Hi

I have a 4000 row spreadsheet with approximately 33 columns and I have about
about 300 intermittent blank lines.

How can create a macro in the file to automate the process of deleting these
empty rows which I do manually?

I don't want to use the autofilter function to deal with this problem. I
would if possible to do this with a button or shortcut.

Anyone can help me this.

Thanks very much in advance
Janet

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
create a macro to search an excel spread for duplicates	jamalin	Excel Worksheet Functions	4	February 16th 07 10:58 AM
How to create a macro that deletes every blank row in a spreadshee	quartz[_2_]	Excel Programming	1	December 14th 05 10:29 PM
WHEN DOWNLOADING A TEXTFILE EXCEL DELETES BLANK ROWS - STOP THIS?	shell3	Excel Worksheet Functions	0	October 21st 05 03:29 PM
I want to create a macro to where after we enter data in a spread.	David	Excel Worksheet Functions	0	March 30th 05 04:07 PM
Create Macro - move selected rows to new spread sheet	chrisak	Excel Programming	1	May 24th 04 06:55 PM

Menu

About Us