hugh0620

¦^´_ 1# cdcc

    ¼Ó¥Dªº·N«ä¸ÑŪ°_¨Ó¹³¬O
   1. ¥ý±N¨C¤@¦Cªºb»Pc¬Û­¼
   2. ¨Ì¹ô­È±Nb*cªº­È¥[Á`°_¨Ó
   ­Y¬O³o¼Ëªº¸Ü,¦p¤U­zµ{¦¡½X
Sub a()
   
For ae = 1 To [A999].End(xlUp).Row
   If Cells(ae, 1) <> "" Then Cells(ae, 4) = Cells(ae, 2) * Cells(ae, 3)
    Next
    Range("A1:A5").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _
        ), Unique:=True
Do Until Range("E" & 1 + I) = ""
   Range("F" & 1 + I) = Application.SumIf(Range("A1:A5"), Range("E" & 1 + I), Range("D1:D5"))
I = I + 1
Loop
End Sub