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

[µo°Ý] ¥ª¥k¦³»¼¼W±Æ§Ç¤Î»¼¼W±Æ§Ç°ÝÃD

[µo°Ý] ¥ª¥k¦³»¼¼W±Æ§Ç¤Î»¼¼W±Æ§Ç°ÝÃD

¦bexcel¥\¯à¦³¤W¤U¦³»¼¼W±Æ§Ç¤Î»¼¼W±Æ§Ç
¬O§_¦³¥\¯à¦³¥ª¥k¦³»¼¼W±Æ§Ç¤Î»¼¼W±Æ§Ç
§Ú¦³5000²Õ¸¹½X·Q­n¥ª¥k»¼¼W±Æ§Ç
¦pªþ¥ó
½Ð¤j¤j¨ó§U¡KÁÂÁÂ

5000.rar (207.49 KB)

¦^´_ 1# jeff5424
  1. Sub EX()
  2. Application.ScreenUpdating = False
  3. Dim A As Range
  4. For Each A In [A2:A5001]
  5.    Range(A.Offset(, 1), A.Offset(, 1).End(xlToRight)).Sort key1:=A.Offset(, 1), Header:=xlNo, Orientation:=xlLeftToRight
  6. Next
  7. Application.ScreenUpdating = True
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# jeff5424


   

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD