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

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.

--
I need so much help, but right now, some Excel help will suffice!!

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

hi
can you sort it??? excel's sort moves blanks to the bottom.

regards
FSt1

"Jose" wrote:

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.

--
I need so much help, but right now, some Excel help will suffice!!

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

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
--
I need so much help, but right now, some Excel help will suffice!!


"FSt1" wrote:

hi
can you sort it??? excel's sort moves blanks to the bottom.

regards
FSt1

"Jose" wrote:

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.

--
I need so much help, but right now, some Excel help will suffice!!

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

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



On May 17, 11:05 am, Jose wrote:
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
--
I need so much help, but right now, some Excel help will suffice!!

"FSt1" wrote:
hi
can you sort it??? excel's sort moves blanks to the bottom.

regards
FSt1

"Jose" wrote:

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.

--
I need so much help, but right now, some Excel help will suffice!!

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

F5SpecialBlanksOK

EditDeleteShift cells up?


Gord Dibben MS Excel MVP

On Sat, 17 May 2008 07:26:01 -0700, Jose wrote:

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.