[已解决]用代码如何用排列

WENWENTF

A列如果有一级数字应如何用排列（升序、降序）

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-4 13:52

升序

Sub 排序()
    Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, header:=xlYes
End Sub

降序

Sub 排序()
    Range("A1").CurrentRegion.Sort Range("A1"), xlDescending, header:=xlYes
End Sub

跳转到最佳答案楼层

WENWENTF

A列如果有一组数字应如何用排列（升序、降序）

枯禅

录个宏，稍微改一下就OK了，学V的基础

amulee

升序

Sub 排序()
    Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, header:=xlYes
End Sub

降序

Sub 排序()
    Range("A1").CurrentRegion.Sort Range("A1"), xlDescending, header:=xlYes
End Sub