Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.setup
|
|||
|
|||
Delete rows with no data
I have an excel spreadsheet that I would like it to automatically look at
columns of data and if there is no data or formulas for that column of data to go ahead and delete the column or if I have it in a row to delete the row. Is there an easy way to do this? |
#2
Posted to microsoft.public.excel.setup
|
|||
|
|||
Delete rows with no data
Mindie
This would require VBA macro to be "automatic" Sub DeleteEmptyRows() Dim LastRow As Long ''only if entire row is blank 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 End Sub Sub DeleteEmptycolumns() Dim Lastcolumn As Long ''only if entire column is blank Lastcolumn = ActiveSheet.UsedRange.Column - 1 + _ ActiveSheet.UsedRange.Columns.Count Application.ScreenUpdating = False For r = Lastcolumn To 1 Step -1 If Application.CountA(Columns(r)) = 0 Then Columns(r).Delete Next r End Sub Gord Dibben Excel MVP On Wed, 30 Nov 2005 11:49:08 -0800, Mindie wrote: I have an excel spreadsheet that I would like it to automatically look at columns of data and if there is no data or formulas for that column of data to go ahead and delete the column or if I have it in a row to delete the row. Is there an easy way to do this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete rows with same data | Excel Worksheet Functions | |||
Loading Column Data with blank Rows into Data Validation Box | Excel Worksheet Functions | |||
Pivot Table - max rows allowed in data range | Excel Discussion (Misc queries) | |||
hOW TO DELETE THE - IN (23-HFV51), I HAVE LOTS OF ROWS WITH DATA. | Excel Discussion (Misc queries) | |||
Pulling data from 1 sheet to another | Excel Worksheet Functions |