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