| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
delete rows with empty cells throughout the data
How would i delete the rows of data if any of the cells are empty for
say a range a1 to i400? thanks, gr |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
delete rows with empty cells throughout the data
gr,
Range("A1:I400").SpecialCells(xlCellTypeBlanks).En tireRow.Delete HTH, Bernie MS Excel MVP "rutski" wrote in message ... How would i delete the rows of data if any of the cells are empty for say a range a1 to i400? thanks, gr |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
delete rows with empty cells throughout the data
This will delete the entire row if the cell in ColumnA is blank:
Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows.Count For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "A").Value = "" Then Rows(RowNdx).Delete End If Next RowNdx End Sub Regards, Ryan--- -- RyGuy "Bernie Deitrick" wrote: gr, Range("A1:I400").SpecialCells(xlCellTypeBlanks).En tireRow.Delete HTH, Bernie MS Excel MVP "rutski" wrote in message ... How would i delete the rows of data if any of the cells are empty for say a range a1 to i400? thanks, gr |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
delete rows with empty cells throughout the data
On Nov 16, 10:22 am, "Bernie Deitrick" <deitbe @ consumer dot org
wrote: gr, Range("A1:I400").SpecialCells(xlCellTypeBlanks).En tireRow.Delete HTH, Bernie MS Excel MVP "rutski" wrote in message ... How would i delete the rows of data if any of the cells are empty for say a range a1 to i400? thanks, gr thanks Bernie |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
delete rows with empty cells throughout the data
On Nov 16, 10:44 am, ryguy7272
wrote: This will delete the entire row if the cell in ColumnA is blank: Sub delete_rows() Dim RowNdx As Long Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows.Count For RowNdx = LastRow To 1 Step -1 If Cells(RowNdx, "A").Value = "" Then Rows(RowNdx).Delete End If Next RowNdx End Sub Regards, Ryan--- -- RyGuy "Bernie Deitrick" wrote: gr, Range("A1:I400").SpecialCells(xlCellTypeBlanks).En tireRow.Delete HTH, Bernie MS Excel MVP "rutski" wrote in message ... How would i delete the rows of data if any of the cells are empty for say a range a1 to i400? thanks, gr thanks ryguy |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to Delete empty rows in excel in b/w rows with values | Excel Worksheet Functions | |||
| delete rows with empty cells | Excel Discussion (Misc queries) | |||
| Cut filtered rows, paste into next empty row of new sheet, and delete cut rows | Excel Worksheet Functions | |||
| How can I globally delete empty cells or rows in different places | Excel Discussion (Misc queries) | |||
| Delete rows with empty cells in columns B&C | Excel Discussion (Misc queries) | |||
Linear Mode
