Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
Is there a way to delete 100's of blank rows programatically ?
-- BB |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
Hi,
Right click your sheet tab, view code and paste this in and run it Sub Kill_Blank_Rows() Dim i As Long For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then ActiveSheet.UsedRange.Rows(i).EntireRow.Delete End If Next i End Sub Mike "brewster56" wrote: Is there a way to delete 100's of blank rows programatically ? -- BB |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
Worksheets("Sheet1").Rows(StartRowNumber).Resize(N umberOfRows).Delete Cordially, Chip Pearson Microsoft MVP Excel Product Group Pearson Software Consulting, LLC www.cpearson.com (email on web site) On Wed, 26 Nov 2008 13:51:00 -0800, brewster56 wrote: Is there a way to delete 100's of blank rows programatically ? |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
ASAP utilities is an free add-in that has a tool to delete blank rows and
columns "brewster56" wrote: Is there a way to delete 100's of blank rows programatically ? -- BB |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
You are awesome - thank you very much both for the quick reply (saved my day)
and the fact that it worked first time and solved my problem -- BB "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in and run it Sub Kill_Blank_Rows() Dim i As Long For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then ActiveSheet.UsedRange.Rows(i).EntireRow.Delete End If Next i End Sub Mike "brewster56" wrote: Is there a way to delete 100's of blank rows programatically ? -- BB |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
Glad I could help
"brewster56" wrote: You are awesome - thank you very much both for the quick reply (saved my day) and the fact that it worked first time and solved my problem -- BB "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in and run it Sub Kill_Blank_Rows() Dim i As Long For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then ActiveSheet.UsedRange.Rows(i).EntireRow.Delete End If Next i End Sub Mike "brewster56" wrote: Is there a way to delete 100's of blank rows programatically ? -- BB |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
How do I remove LOTS of blank rows at once
Hi:
I copied it into view code, but i can't figure out how to "run it." can you tell me how please? thanks. Jeff "Mike H" wrote: Hi, Right click your sheet tab, view code and paste this in and run it Sub Kill_Blank_Rows() Dim i As Long For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If WorksheetFunction.CountA(ActiveSheet.UsedRange.Row s(i)) = 0 Then ActiveSheet.UsedRange.Rows(i).EntireRow.Delete End If Next i End Sub Mike "brewster56" wrote: Is there a way to delete 100's of blank rows programatically ? -- BB |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
gang remove blank rows | Excel Discussion (Misc queries) | |||
Remove Blank and Non Data Rows | Excel Discussion (Misc queries) | |||
formula to remove blank rows | Excel Discussion (Misc queries) | |||
remove or hide blank rows | Excel Discussion (Misc queries) | |||
How do I remove blank rows in Excel? | Excel Discussion (Misc queries) |