GBKEE

¦^´_ 7# asus103

1. Sub Ex()
   
2.     Dim Ar, Rng As Range
   
3.     Ar = Array("SD", 100, "SA", 50, 777, "AAA", 5)
   
4.     With ActiveSheet
   
5.         Set Rng = .[a1].Resize(UBound(Ar) + 1)
   
6.         Rng.Value = Application.Transpose(Ar)
   
7.         Rng.Sort Key1:=Rng(1), Order1:=xlAscending, Header:=xlNo
   
8.         Ar = Application.Transpose(Rng)
   
9.     End With
   
10. End Sub

½Æ»s¥N½X