Take a range and display all values in one cell as comma diliminated

Posted on 2016-10-04
Last Modified: 2016-11-11

I need help with a function that can take a range say A2:E5 and convert all values into one long string and place result into A1.

Then the reverse of this that takes the result from A1 and places into the defined range.  The values could be either text or integer.

Thank you
Question by:StormFusion
LVL 33

Expert Comment

ID: 41828384
How should the values be arranged?

Should it be across then down or down then across?

Author Comment

ID: 41828392

Across then down.
LVL 27

Expert Comment

by:Glenn Ray
ID: 41828411
You won't be able to use functions to do both the concatenation (values into A1) and extraction (values out of A1) because of circular referencing.

If the source range is known - A2:E5 in your example - then one could create a long formula that combines all the values like so:

Admittedly, that's not very elegant.  

If your destination range was similarly-sized, you could insert formulas in the cells to retrieve the specific value, but they, too, would be pretty tedious.

Your best scenario would be to either have a macro or a user-defined function (UDF) that will handle these.  However, they involve VBA and you didn't specify whether that was an option.

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

LVL 29

Accepted Solution

Subodh Tiwari (Neeraj) earned 500 total points
ID: 41828427
You may try a user defined function to get the desired output.

How to implement the Function:

  • Open your workbook and press Alt+F11 to open VB Editor.
  • On VB Editor --> Insert --> Module and paste the code given below into the opened code window.
  • Close VB Editor and save your workbook as Macro-Enabled Workbook.

Function RangeToString(rng As Range)
Dim cell As Range
Dim str As String
For Each cell In rng
   If str = "" Then
      str = cell.Value
      str = str & ", " & cell.Value
   End If
Next cell
RangeToString = str
End Function

Open in new window

Now try this...
In A1

Open in new window


Author Comment

ID: 41828440
Hi Subodh Tiwari (Neeraj) that works exactly as needed, but how do I now reverse this so it puts values from the function string back into the range defined,

So I use Range ToString (A1:A5) which works, and then another function which 0,0,0,0 for example is passed to and it places all the individual values back into the cells.

LVL 33

Expert Comment

ID: 41828508
Here's an slightly different function which allows you to specify the delimiter and whether to go across and down or down and across.
Function RangeToDelimList(rng As Range, Optional Delim = ",", Optional AcrossDown = True)
Dim I As Long
Dim R As Long
Dim tmp As String
Dim arr()

    For I = 1 To rng.Rows.Count
        If DownAcross Then
            tmp = Join(Application.Transpose(Application.Index(Application.Transpose(rng), , I)), Delim)
            tmp = Join(Application.Transpose(Application.Index(rng, , I)), Delim)
        End If

        ReDim Preserve arr(R)

        arr(R) = tmp
        R = R + 1
    Next I

    RangeToDelimList = Join(arr, Delim)

End Function

Open in new window

It defaults to across and down with the delimiter being a comma.

As for a 'reverse' function, how would the range be determined?

Author Comment

ID: 41828667
The range would be past to it similar to function
LVL 33

Expert Comment

ID: 41828729
But how would the range be determined?

Would it be passed to the function?

Author Comment

ID: 41828733
Ok, hows about when the first function is run it stores the RANGE in the first DIM slot, then when the comma deliminated code is passed to a new function it reads the first DIM slot for the range and it has exact size and range to be posted back?

SO.... A2:D5,TEST,DATA,DUMMY,VAR,001 etc

Then when other function called it nows exactly where it all goes back but obviously doesn't paste the RANGE value from the beginning of the string.

That be great :)
LVL 33

Expert Comment

ID: 41828755
So the first function would return the range address followed by the list of values from the range?

Author Comment

ID: 41828770
The first function would produce a comma deliminated list of data with the first of these values being the range it was taken from.

Then when this data string is past to another function it takes the first data from the string and knows this is the range the data needs to go into.
LVL 14

Expert Comment

ID: 41883537
No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I have recommended this question be closed as follows:

Accept: Subodh Tiwari (Neeraj) (https:#a41828427)

If you feel this question should be closed differently, post an objection and the moderators will review all objections and close it as they feel fit. If no one objects, this question will be closed automatically the way described above.

Experts-Exchange Cleanup Volunteer

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

How to quickly and accurately populate Word documents with Excel data, charts and images (including Automated Bookmark generation) David Miller (dlmille) Synopsis In this article you’ll learn how to use ExcelToWord! to copy data,charts, shapes …
Modern/Metro styled message box and input box that directly can replace MsgBox() and InputBox()in Microsoft Access 2013 and later. Also included is a preconfigured error box to be used in error handling.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question