How can I put values from different columns in a single cell

like this ! sample !!
many-columns-in-one.xlsx

ADRIANA PACCOUNTING ASSISTANTAsked: 2017-03-26

Who is Participating?

Experts Exchange Solution brought to you by

Get this solution by purchasing an Individual license! Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 31

ShumsExcel & VBA ExpertCommented: 2017-03-26

Hi Adriana, you can use below UDF which would be much easier:

Function CONCATRANGE(varRange As Range, Optional varDelimiter As String)
Dim varTemp As Range
For Each varTemp In varRange
CONCATRANGE = CONCATRANGE & varDelimiter & varTemp
Next
If varDelimiter <> vbNullString Then CONCATRANGE = Mid(CONCATRANGE, 2)
End Function

Open in new window

Then your formula in cell K3 would be:

=CONCATRANGE(A3:J3,",")

Open in new window

Please find attached...
Adriana-many-columns-in-one_v1.xlsm

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

ADRIANA PACCOUNTING ASSISTANTAuthor Commented: 2017-03-26

Thanks !! Shums but not coma can be !!

LVL 31

ShumsExcel & VBA ExpertCommented: 2017-03-26

Then change your formula to:

=CONCATRANGE(A4:J4)

Open in new window

ADRIANA PACCOUNTING ASSISTANTAuthor Commented: 2017-03-26

Great ! job !Thnks Shums

LVL 31

ShumsExcel & VBA ExpertCommented: 2017-03-26

You're Welcome Adriana! Pleased to help :)

LVL 30

Roy CoxGroup Finance ManagerCommented: 2017-03-26

UDF copied from here

If you are using Office 365 there is a new Function called TextJoin

ADRIANA PACCOUNTING ASSISTANTAuthor Commented: 2017-03-26

Roy_Cox Thanks !! great to learn !! from you !!

LVL 30

Roy CoxGroup Finance ManagerCommented: 2017-03-26

This function is available in Excel 2016 if you are an Office 365 subscriber and have the latest version of Office installed. It's also available with Excel Online, Excel Mobile, Excel for iOS, and Excel for Android phones and tablets. If you have Office 365 and can’t see the TEXTJOIN then it’s likely you’re on the Deferred Channel, which hasn’t got it yet.