EXCEL自动排序VBA代码

Sub 单列自动排序() 'a为需要排序的数组，up为True则为升序排列，为False，则为降序排列。 Dim up As Boolean Dim ranktype As Str