Multiple text in range into single column
 

I have data in rows like this:

Sally Bob Dave Wally
Jim Dave Henry Frank Ralph John Ringo George Paul
Henry Bob

There can be as many as 25 names and the number of rows will increase.

I am trying to get all the names in a separate column and remove duplicates.

I would gratefully appreciate help with this?

Multiple text in range into single column
 

Are all the names in different cells?

RBS


"NigelVII" wrote in message
...
I have data in rows like this:

Sally Bob Dave Wally
Jim Dave Henry Frank Ralph John Ringo George Paul
Henry Bob

There can be as many as 25 names and the number of rows will increase.

I am trying to get all the names in a separate column and remove
duplicates.

I would gratefully appreciate help with this?

Multiple text in range into single column
 

Yes, each name is in a separate cell.

"RB Smissaert" wrote:

Are all the names in different cells?

RBS


"NigelVII" wrote in message
...
I have data in rows like this:

Sally Bob Dave Wally
Jim Dave Henry Frank Ralph John Ringo George Paul
Henry Bob

There can be as many as 25 names and the number of rows will increase.

I am trying to get all the names in a separate column and remove
duplicates.

I would gratefully appreciate help with this?

Multiple text in range into single column
 

I did get this to work:

Sub NamedRangeToSeparateCells()
Dim nString As String
Dim nRange As Range
Dim nCells As Integer

nCells = 0

For Each nRange In Range("IND_NAMES_ARRAY")

If nRange.Value < Empty Then
nCells = nCells + 1
nString = nString & nRange.Value
Cells(nCells, 30).Value = nString
Else
End If

nString = " "

Next
End Sub

As a guy who just slaps code together and sometimes it works, I'm just
curious if this is good, compact code?


"NigelVII" wrote:

Yes, each name is in a separate cell.

"RB Smissaert" wrote:

Are all the names in different cells?

RBS


"NigelVII" wrote in message
...
I have data in rows like this:

Sally Bob Dave Wally
Jim Dave Henry Frank Ralph John Ringo George Paul
Henry Bob

There can be as many as 25 names and the number of rows will increase.

I am trying to get all the names in a separate column and remove
duplicates.

I would gratefully appreciate help with this?