ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Here's an EASY one for you, not me :( (https://www.excelbanter.com/excel-worksheet-functions/52485-heres-easy-one-you-not-me.html)

barbierim

Here's an EASY one for you, not me :(
 

OK I have zipcodes in column A (a1-a700) and I would like to put all
into B1 separated by a ",".

so that B1 will have 700 zipcodes all separated by a comma

what's the formula?

Gracias in advance
Mark


--
barbierim
------------------------------------------------------------------------
barbierim's Profile: http://www.excelforum.com/member.php...o&userid=28381
View this thread: http://www.excelforum.com/showthread...hreadid=479689


Ron Rosenfeld

Here's an EASY one for you, not me :(
 
On Wed, 26 Oct 2005 22:57:51 -0500, barbierim
wrote:


OK I have zipcodes in column A (a1-a700) and I would like to put all
into B1 separated by a ",".

so that B1 will have 700 zipcodes all separated by a comma

what's the formula?

Gracias in advance
Mark


You need a UDF.

<alt<F11 opens the VB Editor.

Ensure your project is highlighted in the project explorer window. Then
Insert/Module and paste the code below into the window that opens.

Return to your worksheet and enter the formula:

B1: =concatssn(A1:A700)


==================================
Option Explicit

Function ConCatSSN(rg) As String
Dim c As Variant
For Each c In rg
ConCatSSN = ConCatSSN & ", " & c.Text
Next
ConCatSSN = Replace(ConCatSSN, ", ", "", , 1)
End Function
==========================


--ron

Alvin

Here's an EASY one for you, not me :(
 
i don't know if there is any direct function for this....
i suggest you to use VBA..

Function Concate(x)
For Each b In x.Cells
a = a & b & ", "
Next
Concate = Left(a, Len(a) - 1)
End Function

just type in B1:
=Concate(a1:a700)


"barbierim" wrote:


OK I have zipcodes in column A (a1-a700) and I would like to put all
into B1 separated by a ",".

so that B1 will have 700 zipcodes all separated by a comma

what's the formula?

Gracias in advance
Mark


--
barbierim
------------------------------------------------------------------------
barbierim's Profile: http://www.excelforum.com/member.php...o&userid=28381
View this thread: http://www.excelforum.com/showthread...hreadid=479689



barbierim

Here's an EASY one for you, not me :(
 

Ron Rosenfeld Wrote:
On Wed, 26 Oct 2005 22:57:51 -0500, barbierim
wrote:


OK I have zipcodes in column A (a1-a700) and I would like to put all
into B1 separated by a ",".

so that B1 will have 700 zipcodes all separated by a comma

what's the formula?

Gracias in advance
Mark


You need a UDF.

<alt<F11 opens the VB Editor.

Ensure your project is highlighted in the project explorer window.
Then
Insert/Module and paste the code below into the window that opens.

Return to your worksheet and enter the formula:

B1: =concatssn(A1:A700)


==================================
Option Explicit

Function ConCatSSN(rg) As String
Dim c As Variant
For Each c In rg
ConCatSSN = ConCatSSN & ", " & c.Text
Next
ConCatSSN = Replace(ConCatSSN, ", ", "", , 1)
End Function
==========================


--ron

Worked like a charm, Thanks
MB


--
barbierim
------------------------------------------------------------------------
barbierim's Profile: http://www.excelforum.com/member.php...o&userid=28381
View this thread: http://www.excelforum.com/showthread...hreadid=479689


Ron Rosenfeld

Here's an EASY one for you, not me :(
 
On Thu, 27 Oct 2005 17:09:49 -0500, barbierim
wrote:

Worked like a charm, Thanks
MB


--
barbierim


You're welcome. Thank you for the feedback.

--ron


All times are GMT +1. The time now is 03:52 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com