Copy values
Closed
Taty
-
12 Jun 2010 à 11:37
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 12 Jun 2010 à 17:53
rizvisa1 Posts 4478 Registration date Thursday 28 January 2010 Status Contributor Last seen 5 May 2022 - 12 Jun 2010 à 17:53
2 responses
rizvisa1
Posts
4478
Registration date
Thursday 28 January 2010
Status
Contributor
Last seen
5 May 2022
766
12 Jun 2010 à 15:17
12 Jun 2010 à 15:17
You mean in one cell with space ? or different columns
Also how many rows are you talking about, There is a limit to text in a cell and number of columns
Also how many rows are you talking about, There is a limit to text in a cell and number of columns
rizvisa1
Posts
4478
Registration date
Thursday 28 January 2010
Status
Contributor
Last seen
5 May 2022
766
12 Jun 2010 à 17:53
12 Jun 2010 à 17:53
Try this. It assumes that the column is A and there are no blank cell in between
Sub JoinData()
Dim lRow As Long
lRow = 2
Do While (Cells(lRow, "A") <> "")
Cells(1, "A") = Cells(1, "A") & " " & Cells(lRow, "A")
Cells(lRow, "A").Delete Shift:=xlUp
Loop
End Sub
12 Jun 2010 à 15:37
e.g.
1111 2222 3333 4444 5555 6666.............................3232