yangjie

¦^´_ 1# jimmy


    ¥i¹Á¸Õ¥ÎVBA¥¨¶°³B²z   ¦b³o¸Ì¥ý°Ñ¦Ò³B²z¸ê®Æ ¤À¥X²Õ§O»P¼Æ¶qªí   
Sub Sample()
    Dim myRng As Range
    Sheets(1).Activate
    Set myRng = Columns(1)
    myRng.AdvancedFilter _
        Action:=xlFilterInPlace, _
        Unique:=True
    Set myRng = Nothing
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(1).Activate
    row1 = [A65336].End(xlUp).Row
    Range("A1:A" & row1).Copy Sheets(Sheets.Count).Cells(1, 1)
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Sheets(Sheets.Count).Activate
    For i = 2 To [A65336].End(xlUp).Row
        Cells(i, 2) = 0
        am = Cells(i, 2)
        For j = 2 To row1
            If Sheets(1).Cells(j, 1) = Cells(i, 1) Then
                bm = Sheets(1).Cells(j, 2)
                If bm = "" Or bm = "NA" Then bm = 0
                am = am + bm
            End If
        Next
        Cells(i, 2) = am
    Next
End Sub
¤§«á¥i¨Ì¼Æ¶q§@±Æ§Ç ¦A¨D¥|¤À¦ì¼Æ