ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

excel¦U²Õ§O¥|¤À¦ì­pºâ °ÝÃD½Ð±Ð

excel¦U²Õ§O¥|¤À¦ì­pºâ °ÝÃD½Ð±Ð

123.pdf (26.33 KB) ¦U¦ì¥ý¶i
¤p§Ì¦³¤@°ÝÃD¡A¦³¤@EXCELÀÉ®×­n­pºâ¦U²Õ¥|¤À¦ì¼Æ¡A¥Ñ©ó²Õ¼Æ¦³¼Æ¤dµ§¡A¤£ª¾¥Î¦óºØ¤½¦¡¥i¸Ñ¨M¦¹°ÝÃD
«D±`·PÁÂ
°ÝÃD¦p¤U
«~    ¸¹                            ¼Æ¶q
8C-001                                         2
8N2I15B010001A0-31        49
8N2I15B010001A0-31        49
8N2I15B010001A0-31        NA
8N2I15B010001A0-31        NA
8N2I15B010009A0                        24
8N2I15B010009A0                        25
8N2I15B010010A0                       8
8N2I15B010010A0                       25
8N2I15B010013A0-12            16
8N2I15B010014B1                       7
8N2I15B010014B1                  8
8N2I15B010027A0-18        0
8N2I15B010027A0-18        11
8N2I15B012004A0                        NA
8N2I15B012004A0-12        15
8N2I15B012004A0-12        22
8N2I15B013008A0                        2
8N2I15B013008A0                        4
8N2I15B013008A0                        5
8N2I15B013009A0                        9
8N2I15B015002A0                       28
8N2I15B015002A0                       35
8N2I15B015002A0                       46
8N2I15B015004A0                        5
8N2I15B015004A0                       8
8N2I15B015004A0                      13
8N2I15B015005A0                      4
8N2I15B015006A0                      21
8N2I15B015006A0                      28
8N2I15B015006A0                      28
8N2I15B015007A0                     21
8N2I15B015007A0                     28
8N2I15B015013A0                      8
8N2I15B015013A0                6
8N2I15B015013A0                     23
8N2I15B015013A0                     26
8N2I15B018001A0                     15

¥»©«³Ì«á¥Ñ yangjie ©ó 2010-11-8 00:36 ½s¿è

¦^´_ 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¥|¤À¦ì¼Æ

TOP

C2°}¦C¤½¦¡
{=IF(COUNTIF($A$1:A2,A2)=1,QUARTILE(IF($A$2:$A$315=A2,$B$2:$B$315),1),"")}
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    ÁÂÁ¤j¤jªº±Ð¾É
°ÝÃD¤w¸Ñ¨M

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD