HELP ME!!! Condensing multiple cells with text and too many blank

J

Jose

I have several hudred columns of text cells interspersed with blank cells.
Instead of manually deleting each blank cell, I would like to do this with a
formula, or a macro, although I am not good with macros.

I would appreciate any help I can get.

Thanks for your time.
 
J

Jose

Hi,

I can't sort the data because it's in a specific order and what I need to do
is to condense it so that the text in each of the cells that has text to
follow each other in a consecutive order.

Thanks
 
T

Tim879

This code will delete the blank cells (same as you selecting the cell
and deleting to the left). See comment in code below to move cell up
instead

Sub delete_blanks()
For myCol = 1 To Selection.Columns.Count
For myRow = 1 To Selection.Rows.Count
If Selection.Cells(myRow, myCol).Value = "" Then
Selection.Cells(myRow, myCol).Delete Shift:=xlToLeft
'change this to xlUp if you want to move cells up when you delete
End If
Next
Next

End Sub
 
Top