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