macro to combine cell values with appended average of another cell

[lenin]

Have a table with 4 columns, Need a macro to combine some filtered cell with corresponding cell values are appended with combined values.
From
A B C D
111 Meeting 5.711% 12-May-13
222 Testing 3.711% 12-May-13
222 Meeting 4.711% 14-May-13
111 Testing 8.711% 17-May-13

To:
A B C D
Meeting 111[5.7%];222[4.7] 12-may-13 14-may-13
Testing 111[8.71];2223.71[] 12-May-13 17-May-13

Means If Value in column A appears more then once for a B value, then the appended value should be average of that C value.Image added: https://docs.google.com/file/d/0B7BtqzryKzJQRUUtNjVpal9Ib2s/edit?usp=sharing

 

[oldbrewer]

To:
A B C D
Meeting 111[5.7%];222[4.7] 12-may-13 14-may-13
Testing 111[8.71];2223.71[] 12-May-13 17-May-13

is underlined bit correct?

 

[lenin]

No, Sorry..It s a Typo. 222[3.71%]

 

[oldbrewer]

111	Meeting	5.71%	12-May-13
222	Testing	3.71%	12-May-13
222	Meeting	4.71%	14-May-13
111	Testing	8.71%	17-May-13
111	Testing	6.71%	20-May-13
To:
A B C D
Meeting 111[5.7%];222[4.7] 12-may-13 14-may-13
Testing 111[8.71];222[3.71] 12-May-13 17-May-13
Meeting	111	5.71%	<<<<<
Testing	111	7.71%
Meeting	222	4.71%
Testing	222	3.71%
indicated cell =	SUMPRODUCT(($B$2:$B$6=$A15)*($A$2:$A$6=$B15)*($C$2:$C$6))/SUMPRODUCT(($B$2:$B$6=$A15)*($A$2:$A$6=$B15)*1)

<colgroup><col><col><col><col><col span="4"></colgroup><tbody>
</tbody>

not sure how to list the dates if say there were 27 testing 111 entries

 

[lenin]

Hi,
I have using a macro, which did like follows.

If a Table has

Meeting XXX 111 5.71%
Testing XXX 222 3.71%
Meeting XXX 222 4.71%
Testing YYY 111 8.71%
Testing YYY 111 6.71%

After runs the macro:
Meeting XXX 111[0.0371];222[0.0471];222 5.71%
Testing YYY 111[0.0671];111 8.71%

Can you please help me to append the [5.71%] in first column and [8.71%] in second row. also the 5.71% auto converted as [0.0371], these need to prevented.
macro:
Sub Macro()
Dim lngRow As Long
For lngRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If StrComp(Range("B" & lngRow), Range("B" & lngRow - 1), vbTextCompare) = 0 Then
If Range("C" & lngRow - 1) <> "" & ("D" & lngRow - 1) <> "" Then
Range("C" & lngRow - 1) = Range("C" & lngRow - 1) & "[" & Range("D" & lngRow) & "];" & Range("C" & lngRow)
End If
Rows(lngRow).Delete
End If
Next
End Sub

Thanks in Advance,
Lenin

 

[oldbrewer]

sorry - vba coding is beyond me - my solution gets you the info you need - you could then concatenate the cells to get them into your exact format

Meeting	111	5.71%	222 4.71%
Testing	111	7.71%	222 3.71%

<tbody>
</tbody>