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

[µo°Ý] ¦p¦ó±N¤u§@ªí1§ï¼g¦¨¥Ø«e¤u§@ªí

[µo°Ý] ¦p¦ó±N¤u§@ªí1§ï¼g¦¨¥Ø«e¤u§@ªí

¥»©«³Ì«á¥Ñ av8d ©ó 2017-2-18 11:25 ½s¿è
  1.     Range("A1:C5000").Select
  2.     ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Clear
  3.     ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort.SortFields.Add Key:=Range( _
  4.         "A2:A5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  5.         xlSortNormal
  6.     With ActiveWorkbook.Worksheets("¤u§@ªí1").AutoFilter.Sort
  7.         .Header = xlYes
  8.         .MatchCase = False
  9.         .Orientation = xlTopToBottom
  10.         .SortMethod = xlPinYin
  11.         .Apply
  12.     End With
½Æ»s¥N½X
¥H¤Wµ{¦¡½X¬O°w¹ï¤u§@ªí1¶i¦æªº¡A¦ý¬O§Úªº¤u§@ªí¦³50­Ó¡A·Q§ï¼g¦¨°w¹ï¥Ø«e¤u§@ªí¡A³o¼Ë´N¤£¥Î¼g50¦¸¤@¼Ëªº¥¨¶°¡AÀµ½Ð¦Ñ®v­Ì¨ó§U¡AÁÂÁ¡I

¦^´_ 1# av8d
  1. for i = 1 to 50...
  2.     Sheets(i).Range("A1:C5000").Select
  3.     ...
½Æ»s¥N½X
¯u¤ß·PÁ¨C¤@¦ìÄ@·N¤À¨É©Ò¾Ç¡B«ü¾É·s¤âªº¤H!

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD