Copy Excel data content listed in 3 columns into a single column

[mooorrona]

My speadsheet looks like this:
Name Computer name count
Jones cpu1 5
Jones cpu2 6
Jones cpu4 15

I need for it to appear like this:
Name Computer name count
Jones cpu1,cpu2 and cpu4 26

How can this be accomplished. Thanks.

[Edwin Tam]

Try the macro below.

To use the macro:
1) Have the data sorted by the "Name" column.
2) Select any cell in your data
3) Run the macro

'-------------------------
Sub combine_rows()
Dim tmp As Single, tmp2$

tmp2 = Selection.Range("A1").CurrentRegion.Address(False, False)

With ActiveSheet.Range(tmp2).Columns(1)
If .Rows.Count >= 2 Then
For tmp = .Rows.Count To 2 Step -1
If .Rows(tmp).Value = .Rows(tmp - 1).Value Then
.Rows(tmp - 1).Offset(0, 1).Value = _
.Rows(tmp - 1).Offset(0, 1).Value & ", " & _
.Rows(tmp).Offset(0, 1).Value
.Rows(tmp - 1).Offset(0, 2).Value = _
.Rows(tmp - 1).Offset(0, 2).Value + _
.Rows(tmp).Offset(0, 2).Value
.Rows(tmp).EntireRow.Delete
End If
Next
End If
End With
End Sub
'-------------------------

Regards,
Edwin Tam
[email protected]
http://www.vonixx.com



On 1/12/05 11:33 AM, in article
[email protected], "mooorrona"
<[email protected]> wrote:

> My speadsheet looks like this:
> Name Computer name count
> Jones cpu1 5
> Jones cpu2 6
> Jones cpu4 15
>
> I need for it to appear like this:
> Name Computer name count
> Jones cpu1,cpu2 and cpu4 26
>
> How can this be accomplished. Thanks.