Multiple reference lookup and output sum of corresponding values

[BKB999]

language	batch	WC	FC
zh	1	36	0
id	1	0	0
vi	1	36	0
zh	1	80	20
zh	1	45	59
zh	1	40	0
zh	1	189	92
zh	1	14	0
id	1	0	0
vi	2	14	0
zh	1	71	94
zh	1	150	104
id	1	0	0
vi	2	150	104
zh	1	2	0
id	1	0	0
vi	2	2	0
zh	1	12	26
id	1	0	0
vi	2	6	26
zh	1	2	0
id	1	0	0

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

Hi in the above table I need to the sum of WC for each Language code & batch no. eg. for Language "id" & batch 1 I need to get the SUM of WC corresponding to the criteria. Could you please help me in this?

 

[MickG]

Perhaps this:-
Results start "E1"

[COLOR="Navy"]Sub[/COLOR] MG03Apr09
[COLOR="Navy"]Dim[/COLOR] Rng     [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Dn      [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Dim[/COLOR] Twn     [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    Twn = Dn & " - " & Dn(, 2)
        [COLOR="Navy"]If[/COLOR] Not .Exists(Twn) [COLOR="Navy"]Then[/COLOR]
            .Add Twn, Dn(, 3)
        [COLOR="Navy"]Else[/COLOR]
            .Item(Twn) = .Item(Twn) + Dn(, 3)
        [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR]
Range("E1").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .items))
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[BKB999]

Perhaps this:-
Results start "E1"

[COLOR=Navy]Sub[/COLOR] MG03Apr09
[COLOR=Navy]Dim[/COLOR] Rng     [COLOR=Navy]As[/COLOR] Range
[COLOR=Navy]Dim[/COLOR] Dn      [COLOR=Navy]As[/COLOR] Range
[COLOR=Navy]Dim[/COLOR] Twn     [COLOR=Navy]As[/COLOR] [COLOR=Navy]String[/COLOR]
[COLOR=Navy]Set[/COLOR] Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
[COLOR=Navy]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] Rng
    Twn = Dn & " - " & Dn(, 2)
        [COLOR=Navy]If[/COLOR] Not .Exists(Twn) [COLOR=Navy]Then[/COLOR]
            .Add Twn, Dn(, 3)
        [COLOR=Navy]Else[/COLOR]
            .Item(Twn) = .Item(Twn) + Dn(, 3)
        [COLOR=Navy]End[/COLOR] If
[COLOR=Navy]Next[/COLOR]
Range("E1").Resize(.Count, 2) = Application.Transpose(Array(.Keys, .items))
[COLOR=Navy]End[/COLOR] With
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]

Regards Mick

Thanks... It worked.

But could you please tell me any other way using formulas? Because in future I need to change this layout so I dont know to edit vba.. thats why..

Thanks for your support