Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
I imported a table of data in excel. A common problem faced is that
the data spreads over multiple rows in one column. What i need to do is then concatenate a few rows. Obviously there are over 300,000 rows of data, so it will take me forever. I have found a macro that does for me. Sub Combine() Dim J As Integer If Selection.Cells.Count 1 Then For J = 2 To Selection.Cells.Count Selection.Cells(J).Value = _ Selection.Cells(1).Value & " " & _ Selection.Cells(J).Value Selection.Cells(1).Clear Next J End If End Sub To use this macro, you select the cells you want to concatenate and then run the macro. The contents of all the cells are combined into the first cell in the selection, then whatever is in the other cells is cleared. However what i want to do is that The contents of all the cells are combined into the LAST (not first) cell in the selection, then whatever is in the other cells is cleared. Can someone please suggest to me an alteration in this macro or a new macro that will achieve the desired result. Thank you. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
Dim J As Integer If Selection.Cells.Count 1 Then For J = 2 To Selection.Cells.Count Selection.Cells(j).Value = _ Selection.Cells(J).Value & " " & _ Selection.Cells(1).Value Selection.Cells(1).Clear Next J End If -- If this post helps click Yes --------------- Jacob Skaria "Shamoun Ilyas" wrote: I imported a table of data in excel. A common problem faced is that the data spreads over multiple rows in one column. What i need to do is then concatenate a few rows. Obviously there are over 300,000 rows of data, so it will take me forever. I have found a macro that does for me. Sub Combine() Dim J As Integer If Selection.Cells.Count 1 Then For J = 2 To Selection.Cells.Count Selection.Cells(J).Value = _ Selection.Cells(1).Value & " " & _ Selection.Cells(J).Value Selection.Cells(1).Clear Next J End If End Sub To use this macro, you select the cells you want to concatenate and then run the macro. The contents of all the cells are combined into the first cell in the selection, then whatever is in the other cells is cleared. However what i want to do is that The contents of all the cells are combined into the LAST (not first) cell in the selection, then whatever is in the other cells is cleared. Can someone please suggest to me an alteration in this macro or a new macro that will achieve the desired result. Thank you. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
thank for trying. but this change does not work.
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
Sub Combine()
Dim J As Integer If Selection.Cells.Count 1 Then combcont = "" For J = 1 To Selection.Cells.Count combcont = combcont & Selection.Cells(J).Value & " " Selection.Cells(J).Clear Next J Selection.Cells(J - 1).Value = Trim(combcont) End If End Sub Regards, Stefi €˛Shamoun Ilyas€¯ ezt Ć*rta: I imported a table of data in excel. A common problem faced is that the data spreads over multiple rows in one column. What i need to do is then concatenate a few rows. Obviously there are over 300,000 rows of data, so it will take me forever. I have found a macro that does for me. Sub Combine() Dim J As Integer If Selection.Cells.Count 1 Then For J = 2 To Selection.Cells.Count Selection.Cells(J).Value = _ Selection.Cells(1).Value & " " & _ Selection.Cells(J).Value Selection.Cells(1).Clear Next J End If End Sub To use this macro, you select the cells you want to concatenate and then run the macro. The contents of all the cells are combined into the first cell in the selection, then whatever is in the other cells is cleared. However what i want to do is that The contents of all the cells are combined into the LAST (not first) cell in the selection, then whatever is in the other cells is cleared. Can someone please suggest to me an alteration in this macro or a new macro that will achieve the desired result. Thank you. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
Thank you Stefi. Your help is much appreciated.
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Concatenate Multiple Rows
You are welcome! Thanks for the feedback!
Stefi €˛Shamoun Ilyas€¯ ezt Ć*rta: Thank you Stefi. Your help is much appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to concatenate many rows in Excel | Excel Worksheet Functions | |||
Concatenate several rows | Excel Worksheet Functions | |||
Concatenate many rows quickly | Excel Worksheet Functions | |||
Concatenate multiple rows and columns into 1 cell | Excel Discussion (Misc queries) | |||
How do I Concatenate these Dynamic Rows | Excel Worksheet Functions |