combining row information

[tgoosed]

I'm having an issue with an easy way to combine row information. Below is an example of the both the data and what I would like as an end result. The spreadsheet I have contains over 37000 lines.

column a column b column c column d

1234 glove ea 04661
1234 glove ea 01661
1234 glove ea 06661
1235 mask ea 04661
1235 mask ea 01661

The output I would like would be
column a column b column c column d column e column f

1234 glove ea 04661 01661 06661
1235 mask ea 04661 01661

[Bob Phillips]

Here's a macro to do it

Sub Test()
Dim iLastRow As Long
Dim i As Long
Dim rng As Range

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 2 Step -1
If Cells(i, "A").Value = Cells(i - 1, "A").Value Then
Cells(i, "D").Resize(, 252).Copy Cells(i - 1, "E")
If rng Is Nothing Then
Set rng = Rows(i)
Else
Set rng = Union(rng, Rows(i))
End If
End If
Next i

If Not rng Is Nothing Then rng.Delete

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"tgoosed" <[email protected]> wrote in
message news:[email protected]...
>
> I'm having an issue with an easy way to combine row information. Below
> is an example of the both the data and what I would like as an end
> result. The spreadsheet I have contains over 37000 lines.
>
> column a column b column c column d
>
> 1234 glove ea 04661
> 1234 glove ea 01661
> 1234 glove ea 06661
> 1235 mask ea 04661
> 1235 mask ea 01661
>
> The output I would like would be
> column a column b column c column d column e column f
>
> 1234 glove ea 04661 01661
> 06661
> 1235 mask ea 04661 01661
>
>
> --
> tgoosed
> ------------------------------------------------------------------------
> tgoosed's Profile:
http://www.excelforum.com/member.php...o&userid=28088
> View this thread: http://www.excelforum.com/showthread...hreadid=475929
>

[tgoosed]

Bob,

Thank you!!! That worked perfectly and save me hours of work.