[µo°Ý] ¨Ï¥ÎªÌ©w¸qªº¦r¦ê±Æ§Ç

Ãz¨x¹F¤H

¦U¦ì¦n:

§Úªº°ÝÃD¬O§Ú¾ã±i¤u§@¦Cªí¤¤"F"Äæ¦ì­n°µ¦r¦êªº±Æ§Ç(¥Ñ¨Ï¥ÎªÌ©w¸q±ø¥ó)

¨Ò¦p:
³Â»¶
³Â³Â
¤Ñ¤Ñ
¶}¶}
ªYªY

¥H¤W¦r¦ê"³Â»¶"±Æ¬°1,"³Â³Â"±Æ¬°2,"¤Ñ¤Ñ"±Æ¬°3

¨Ì¦¹Ãþ±À ¤£¬O¥u¦³¦r¦ê±Æ§Ç  ¦r¦ê±Æ§Ç®É¤]·|¨Ï¨ä¥LÄæ¦ì³s°Ê±Æ§Ç

­ã´£³¡ªL

±Æ§Çªº¤å¦r©ñ¦b¬Y¤@Äæ,
¸ê®Æªí¥[¤@­Ó»²§UÄæ, ¥ÎMATCH§Y¥i¨ú±o¶¶§Ç, ¦A¨Ì¦¹±Æ§Ç§Y¥i!

hcm19522

http://blog.xuite.net/hcm19522/twblog/473940460

Hsieh

¦^´_ 1# Ãz¨x¹F¤H

¤£ª¾¹D¬O§_²z¸Ñ¿ù»~?§Q¥Î¦Û­q²M³æ«ü©w±Æ§Ç¤è¦¡§Y¥i

   

¤U¸ü (791.94 KB)

2016-12-7 15:04

Ãz¨x¹F¤H

¤£¦n·N«ä  §Ú¦n¹³¨SÁ¿²M·¡

¦p¤Uªí­n¨Ï¥Î VBA¤è¦¡

·PÁÂ

¤U¸ü (38.41 KB)

2016-12-7 22:12

Kubi

¦^´_ 5# Ãz¨x¹F¤H

1. Sub test()
   
2.     Dim arr
   
3.     arr = Array("³Â»¶", "³Â³Â", "¤Ñ¤Ñ", "¶}¶}", "ªYªY")
   
4.     Application.AddCustomList listArray:=arr
   
5.     n = Application.CustomListCount
   
6.     er = [A65536].End(3).Row
   
7.     Range("A9:C" & er).Sort Key1:=[B9], OrderCustom:=n + 1
   
8.     Application.DeleteCustomList n
   
9.     Set arr = Nothing
   
10. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 5# Ãz¨x¹F¤H

1. Sub Ex()
   
2.     Dim ct As Long
   
3.    
   
4.     With ¤u§@ªí1
   
5.         ct = .[A65536].End(3).Row
   
6.         .Range("A9:C" & ct).Copy .[F9]
   
7.         .Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

¤U¸ü (23.16 KB)

2016-12-11 08:25