請問怎么樣才能在排序的時候連所在的位置編號一起排出來,該怎么改?:
'Option Explicit
Sub Arraylist()
Dim a
a = Application.Transpose(Sheet1.Range("a1:a10"))
Set objArrayList = CreateObject("System.Collections.ArrayList")
For i = 1 To 10
objArrayList.Add a(i)
Next i
objArrayList.Sort ' 像ACCESS那樣連<對應位置>一起排序!!
For i = 0 To objArrayList.Count - 1
Debug.Print objArrayList.Item(i)
Next
End Sub[/size]
[url=http://club.excelhome.net/thread-1341679-
uj5u.com熱心網友回復：
你想在VBA中直接呼叫系統的 .NET型別庫（或者說：創建.NET型別庫的物件）？大概你走錯了門吧 ！！！
uj5u.com熱心網友回復：
事實上可以用啊!uj5u.com熱心網友回復：
我抱著懷疑的態度，打開Excel，寫了幾句代碼測驗…………暈，沒想到還真是可以創建 objArrayList 這個物件。
不過我從來沒用用 .NET的東西，幫不了你。
但是，我覺得可以不必用它，就用Excel自己的排序功能，應該就可以處理了。
錄段宏，然后提取其關鍵代碼。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59463.html
標籤：VBA