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]

[TABLE="width: 757"]
<colgroup><col><col><col><col><col span="4"></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]111[/TD]
[TD]Meeting[/TD]
[TD]5.71%[/TD]
[TD]12-May-13 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]222[/TD]
[TD]Testing[/TD]
[TD]3.71%[/TD]
[TD]12-May-13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]222[/TD]
[TD]Meeting[/TD]
[TD]4.71%[/TD]
[TD]14-May-13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]111[/TD]
[TD]Testing[/TD]
[TD]8.71%[/TD]
[TD]17-May-13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]111[/TD]
[TD]Testing[/TD]
[TD]6.71%[/TD]
[TD]20-May-13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]To:[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]A B C D [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Meeting 111[5.7%];222[4.7] 12-may-13 14-may-13 [/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="colspan: 3"]Testing 111[8.71];222[3.71] 12-May-13 17-May-13[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Meeting[/TD]
[TD="align: right"]111[/TD]
[TD="align: right"]5.71%[/TD]
[TD]<<<<<[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Testing[/TD]
[TD="align: right"]111[/TD]
[TD="align: right"]7.71%[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Meeting[/TD]
[TD="align: right"]222[/TD]
[TD="align: right"]4.71%[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Testing[/TD]
[TD="align: right"]222[/TD]
[TD="align: right"]3.71%[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]indicated cell =[/TD]
[TD="colspan: 7"]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)[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
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
[TABLE="class: cms_table, width: 757"]
<tbody>[TR]
[/TR]
[TR]
[TD]Meeting[/TD]
[TD="align: right"]111[/TD]
[TD="align: right"]5.71%[/TD]
[TD]222 4.71%
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Testing[/TD]
[TD="align: right"]111[/TD]
[TD="align: right"]7.71%[/TD]
[TD]222 3.71%[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]