Shift all text into one cell

[Skipper]

If I have three cells that have text in them that are next to each
other is there a way to move all the text into one cell?

(Not with a formula, actually move the text)

 

[Don Guillett]

Without more detail, place your cursor on the left most cell in the row

Option Explicit
Sub movetext()
Dim r, c, lc, i As Long
Dim ms As String
r = ActiveCell.Row
c = ActiveCell.Column
lc = Cells(r, Columns.Count).End(xlToLeft).Column
For i = c To lc
ms = ms & " " & Cells(r, i)
Cells(r, i).ClearContents
Next i
'MsgBox ms
Cells(r, c) = ms
End Sub

 

[Gord Dibben]

Cut and paste in the formula bar?

Or Don's macro


Gord Dibben MS Excel MVP

 

[Paul Hyett]

If I have three cells that have text in them that are next to each
other is there a way to move all the text into one cell?

(Not with a formula, actually move the text)

I can't see how you could do exactly as you specify, without laborious
cut/paste.

Personally, I'd use the Concatenate function.

 

[ebloch]

Free ASAP Utilities has a function to combine row or column data.

go to www.asap-utilities.com

Eric