"排序"/"刪除整列"有沒有其它的程式寫法? - Excel程式區

[發問] "排序"/"刪除整列"有沒有其它的程式寫法?

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-4-29 22:04 | 顯示全部帖子

回復 8# PJChen

.Range("A1").CurrentRegion.Sort Key1:=.Range("D2"), Order1:=xlAscending, _

使用excel內建之排序功能,排序鍵至多3組
排序鍵有3組以上,要用其他方法

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-4-29 22:53 | 顯示全部帖子

回復 13# PJChen

2010版
用8樓的程式即可
程式第1行最後少了空白與 _
.Range("A1").CurrentRegion.Sort Key1:=.Range("D2"), Order1:=xlAscending, _
再試試看
或

Sub xx()
Ar = Array(5, 4, 3, 2, 1) '從優先順序最低的欄位開始,要排幾欄皆可
For i = 0 To UBound(Ar)
[A1].CurrentRegion.Sort Key1:=Cells(2, Ar(i)), Order1:=1, Header:=xlGuess '1:遞增 2:遞減
Next
End Sub

複製代碼

靜思自在 : 天上最美是星星，人生最美是溫情。