| ©«¤l522 ¥DÃD36 ºëµØ1 ¿n¤À603 ÂI¦W0  §@·~¨t²Îwin xp sp3 ³nÅ骩¥»Office 2003 ¾\ŪÅv50 ©Ê§O¨k µù¥U®É¶¡2012-12-13 ³Ì«áµn¿ý2021-7-11 
 | 
                
| ¦^´_ 3# athenahu ¸Õ¸Õ¬Ý:
 ³æ¤@²£«~·í¤ë¾P°âª÷ÃB¥[Á`0.7z½Æ»s¥N½XOption Explicit            '±j¨î«Å§iÅܼÆ
Private Sub CommandButton1_Click()
    Dim sh1, sh2 As Worksheet
    Dim i, lastRow, ¤ë As Integer
    Dim Á`»ù As Double
    Set sh1 = Sheets("¦~«×q³æªí")
    Set sh2 = Sheets("²£«~¤ë³øªí")
    
    lastRow = sh2.[A65536].End(xlUp).Row    '¨ú±oAÄæ ³Ì¤U±«DªÅ¥Õ®æ ªº¦C¸¹
    sh2.[B2].Resize(lastRow, 12) = ""  '²M°£ ²£«~¤ë³øªí
    sh2.[N2].FormulaR1C1 = "=MATCH(R[-1]C,R2C1:R" & lastRow & "C1,0) + 1"  '¼g¤J¤½¦¡, ¬d¸ß «~¶µ ªº¦C¸¹
    
    lastRow = sh1.[A65536].End(xlUp).Row    '¨ú±oAÄæ ³Ì¤U±«DªÅ¥Õ®æ ªº¦C¸¹
    For i = 3 To lastRow
        ¤ë = Month(sh1.Cells(i, 1)) + 1
        sh2.[N1] = sh1.Cells(i, 5)    '¦~«×q³æªíªº«~¶µ ¼g¤Jsh2.[N1], ¨ÑMATCH¤½¦¡¬d¸ß
        Á`»ù = sh1.Cells(i, 12)
        
        sh2.Cells(sh2.[N2], ¤ë) = sh2.Cells(sh2.[N2], ¤ë) + Á`»ù  '²Îp³æ¤@²£«~·í¤ëÁ`»ù
    Next
End Sub
http://www.mediafire.com/download/zu1r2orgkrpyohc/%E5%96%AE%E4%B8%80%E7%94%A2%E5%93%81%E7%95%B6%E6%9C%88%E9%8A%B7%E5%94%AE%E9%87%91%E9%A1%8D%E5%8A%A0%E7%B8%BD0.7z
 | 
 |