How to combine column data into one row

[Haroon]

Hi

I have data in 100 cells, A1:A100
I want to find out how can i combine them in one row seperated by a comma,
e.g. test1, test2, test3, etc in a row
at the moment they are in a column e.g.
test1
test2
test3
etc....


thanks in advance.

 

[Joel]

Why do you want commas? Do you want the cells in one column or 100 columns?
Comma seperated data (CSV) is usually a text file and not a xls file. I
think you may be a little confused.

 

[Charlie]

The request sounded perfectly clear to me.

Dim Cell As Range

For Each Cell In Range("A2:A100")
Range("A1") = Range("A1") & "," & Cell
Next Cell

 

[Haroon]

thanks charlie

when i add the code it dont do anything
where and how to i excute the code?

cheers

 

[Charlie]

Put the code in a standard module, such as Module1. Put it in a subroutine
such as:

Sub Test()

' Put the code here

End Sub

As always: save a copy of your workbook first! Then put the cursor anywhere
inside Sub Test and press F5 to run it.

 

[Haroon]

Thanks a lot Charlie, your a star *

Put the code in a standard module, such as Module1. Put it in a subroutine
such as:

Sub Test()

' Put the code here

End Sub

As always: save a copy of your workbook first! Then put the cursor anywhere
inside Sub Test and press F5 to run it.