Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete a blank cell and shift left
I need to figure out a way to take a range, and for each blank cell i
that range delete it and shuft it left. Is there an easy way to d this? Thanks JR -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete a blank cell and shift left
Sub ShiftBlankCellLeft()
'assumes going down current column starting at currentcell location For i = ActiveCell.Row To Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row If ActiveCell.Value = "" Then Selection.Delete Shift:=xlToLeft End If ActiveCell.Offset(1, 0).Select ' assumes moving down a column Next i End Sub "jrb " wrote in message ... I need to figure out a way to take a range, and for each blank cell in that range delete it and shuft it left. Is there an easy way to do this? Thanks JRB --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto-ID and Delete/left shift cells when a cell contains text? | Excel Discussion (Misc queries) | |||
Delete 4 to 5 digits from left in a cell | Excel Discussion (Misc queries) | |||
Delete 4 to 5 digits from left in a cell | Excel Discussion (Misc queries) | |||
delete coumns - shift non-blank cells message | Excel Discussion (Misc queries) | |||
Delete a blank cell and shift left | Excel Programming |