Possible concatenate/cell combine error

**scottydogg84** · 02-09-2011, 01:20 PM

I have a spreadsheet consisting of sequence numbers (column E), line numbers (column F) and text (Column G).

For example in E2:E4 i would have sequence no. 9876543 repeated. In F2 there is 1, F3 is 2, F4 is 3. Then in column G i have text – G2 - 'The cat', G3 - 'sat on', G4 - 'the mat'.

There are several sequence numbers so following on the spreadsheet would have sequence no. 1254567 repeated in cells E5:E8. In F5 - '1', F6 - '2', F7 - '3' and F8 – '4'. Then more text in column G, G5 – 'Romeo Romeo', G6 – 'where for', G7 – 'art', G8 – 'thou Romeo'.

What I need to do is combine the text cells in column H for each sequence where the line number = 1. So, H2 would read 'The cat sat on the mat' and H5 would read 'Romeo Romeo where for out thou Romeo'.

The line numbers are not limited so can can go up to 100+ lines in some cases.

There may be a more simple way of doing this but I basically need to combine the text cells for each sequence number then I can use a VLOOKUP of the combined text to the sequence number in a separate report.

Thanks in advanced.

**NBVC** · 02-09-2011, 01:29 PM

If you add this code to a VBA module in the workbook:

Function aconcat(a As Variant, Optional sep As String = "") As String
' Harlan Grove, Mar 2002
Dim y As Variant

If TypeOf a Is Range Then
For Each y In a.Cells
aconcat = aconcat & y.Value & sep
Next y
ElseIf IsArray(a) Then
For Each y In a
aconcat = aconcat & y & sep
Next y
Else
aconcat = aconcat & a & sep
End If

aconcat = Left(aconcat, Len(aconcat) - Len(sep))
End Function

then you can use formula:

=IF(F2=1,TRIM(aconcat(IF($E$2:$E$8=E2,$G$2:$G$8,"")," ")),"")

confirmed with CTRL+SHIFT+ENTER and not just ENTER and copied down.

Possible concatenate/cell combine error

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Possible concatenate/cell combine error

Re: Possible concatenate/cell combine error

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions