±Æ§Ç°ÝÃD

funnydisk

·Q½Ð°Ý¦U¦ì«e½ú±Æ§Çªº°ÝÃD¡A°²¦p¦³´X­Ó¬¡­¶ªº¶i³f¸ê®Æ¨S¦³·Ó¶¶§Ç±Æ¦C¡A¨Ò¦p
1. 7¤ë¶i³f
³f¸¹   «~¦W      ¼Æ¶q
1001 ¹]µ§      12
1003 ªo©Êµ§  10
1002 ¤¤©Êµ§  15
...
2. 8¤ë¶i³f  
³f¸¹   «~¦W      ¼Æ¶q
1002 ¤¤©Êµ§  20
1003 ªo©Êµ§  19
1001 ¹]µ§      6
...
¥H¤W¤G­Ó¬¡­¶¦p¦ó­n½Æ»s¨ì¡u2012¶i³f¸ê®Æ¡v¬¡­¶Åܦ¨
                          7¤ë      8¤ë
³f¸¹   «~¦W      ¼Æ¶q     ¼Æ¶q
1001 ¹]µ§      12         6
1002 ¤¤©Êµ§  15         20
1003 ªo©Êµ§  10         19
...
³o¬qvba­n«ç»ò¼g©O¡AÁÂÁÂ

Hsieh

¦^´_ 1# funnydisk

³o¼Ë¥\¯à¨Ã¤£Ãø¡A½×¾Â¤¤Ãö©ó¦¹Ãþ°Q½×¥ç¤£¦b¤Ö¼Æ
¨Ï¥ÎDictionaryª«¥ó¥i¥H»´ÃP§¹¦¨
¤£¹L³Ì­«­nªº¬O¤u§@ªí¦WºÙ¦p¦ó¹ïÀ³Äæ¦ìªº°ÝÃD
«Øij¤W¶Ç±zªºÀɮפF¸Ñ¾ãÅéµ²ºc

c_c_lai

¦^´_ 1# funnydisk
´£¨Ñ§A°Ñ¦Ò¡G
xlSh    :  ­n³B²zªºªí³æ¦WºÙ
StartRow:  °_©l¦ì¸m
EndRow  :  ³Ì¥½¦ì¸m

    Set sh = Sheets(xlSh)
    With sh.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C" & StartRow), SortOn:=xlSortOnValues, _
                                                        Order:=xlAscending         ' ¸ê®Æ¥Ñ¤p¦Ó¤j¨Ì§Ç±Æ§Ç
        .SetRange Range("A" & StartRow & ":E" & EndRow)
        ' .Header = xlNone
        .Apply
    End With
¥[ªo¡I