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

Àx¦s®æ±Æ§Ç°ÝÃD

Àx¦s®æ±Æ§Ç°ÝÃD

¥»©«³Ì«á¥Ñ cclo0728 ©ó 2019-8-8 13:50 ½s¿è

¥Ø«e§Ú¥Î¥¨¶°¿ý»s®É,¦bexcel³£¥i¥H¥¿±`°õ¦æ
«Ü§®ªº§Ú¦b¤½¥qªºWPS«o¤£¦æ
·Q½Ð°Ý¥ÎVBA¼gªº¸Ü,µ{¦¡¬O¦p¦ó³]©w
    Columns("C:I").Select
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Add Key:=Range("E2:E100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EA&EB").Sort
        .SetRange Range("C1:I100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

±Æ§Ç¬°­q³æ¸¹½XÄæ¦ì Book1.rar (13.76 KB)
¦b³Â·Ð¦U¦ì«ü¾É¤@¤U,ÁÂÁÂ

¦^´_ 1# cclo0728
¤w§ä¨ì±Æ§Ç«ü¥O,ÁÂÁÂ
    Range("C:I").CurrentRegion.Select '±Æ§ÇE±Æ
    Selection.Sort Key1:=Range("E:E"), ORDER1:=1, Header:=x1yes

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD