GBKEE

1. Option Explicit
   
2. Private Sub CommandButton1_Click()
   
3.     Dim Sh As Worksheet, Rng As Range
   
4.     Application.ScreenUpdating = False
   
5.     Set Sh = Sheets("10¤ë")                              '**«ü©w¤u§@ªí
   
6.     Set Rng = Sh.Range("B1", Sh.Range("B1").End(xlDown)) '**BÄ檺½d³ò: B1¨ì³Ì«á¤@µ§ªº¸ê®Æ
   
7.     With Sh.Range("N1")
   
8.         .CurrentRegion.Clear                             '**²M°£ ©µ¦ù½d³ò
   
9.         Rng.AdvancedFilter xlFilterCopy, , .Cells, xlYes '**¶i¶¥¿z¿ï ±N·~°È¤H­û½s¸¹ ½Æ»s¨ì N1
   
10.                                                          '** xlYes °Ñ¼Æ -- ¤£¿ï­«Âиê®Æ
    
11.         With .CurrentRegion.Columns(2)                   '**©µ¦ù½d³òªº²Ä¤GÄæ
    
12.             .Cells = "=" & "SUMIF(" & Rng.Address(, , xlR1C1) & ",RC[-1]," & Rng.Offset(, 7).Address(, , xlR1C1) & ")"
    
13.             '** hcm19522 ªº¤½¦¡ =IF(COUNTIF(B$2:B2,B2)=1,SUMIF(B:B,B2,I:I),"")
    
14.             '**¨ú SUMIF(B:B,B2,I:I)  ±a¤J¤½¦¡
    
15.             '**Rng.Address(, , xlR1C1)             ** B:B ªº R1C1 ¼Ë¦¡ªº°Ñ·Ó
    
16.             '**Rng.Offset(, 7).Address(, , xlR1C1) ** I:I ªº R1C1 ¼Ë¦¡ªº°Ñ·Ó
    
17.             '**RC[-1]                           ** B2  ªº R1C1 ¼Ë¦¡ªº°Ñ·Ó
    
18.             .Value = .Value                       '** ±N¤½¦¡Âন­È
    
19.         End With
    
20.         .Range("B1") = "ÂI¼Æ¥[Á`"                 '**¸É¤W¼ÐÀY
    
21.     End With
    
22. End Sub

½Æ»s¥N½X