Shift all text into one cell

  • Thread starter Thread starter Skipper
  • Start date Start date
S

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)
 
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
 
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)
Click to expand...

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

Personally, I'd use the Concatenate function.
 
Back
Top