GBKEE

¦^´_ 1# alims

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Set Rng = Range("A1").CurrentRegion         '³]¸m¸ê®Æ°Ï
   
5.     Rng.Columns(2).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("IV1:IV2"), CopyToRange:=Range("F1"), Unique:=True
   
6.                                                 '¶i¶¥¿z¿ï ¥X¤£­«´_ªº©m¦W¨ì FÄæ
   
7.     Range("G1") = "¦¨¥æª÷"
   
8.     With Range(Range("G2"), Range("F1").End(xlDown).Offset(, 1))
   
9.         .FormulaR1C1 = "=SUMIF(" & Rng.Columns(2).Address(, , 0) & ", RC[-1] ," & Rng.Columns(3).Address(, , 0) & ")"
   
10.                     '³]¤U¤½¦¡
    
11.         .Value = .Value   '¤½¦¡Âà´«¬°­È ¤]¥i¥H¤£Âà´«
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# mistery
¤£¥Î°}¦C,ÁÙ¦³¤]¥i¥H
=SUMIF($B$2:$B$11,E2,$C$2:$C$11)
=SUMPRODUCT(($B$2:$B$11=E2)*($C$2:$C$11))