[發問] 請問在vba中的陣列如何排序?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-1-7 23:45 | 只看該作者

回復 1# linshin1999
氣泡式排序法，在VB中最常見的排序法
但在EXCEL.VBA裡面可用到工作表函數幫忙
陣列排序 / Sorting Array / Sort Array

學海無涯_不恥下問

linshin1999

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2011-1-7 23:59 | 只看該作者

回復 2# Hsieh

如木工版主所言不是很懂,但是再用力去了解看看,如Hsieh所言看來VBA中没支援陣列排序,謝謝!!

V98

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-1-8 00:08 | 只看該作者

本帖最後由 Hsieh 於 2011-1-8 00:12 編輯

回復 3# linshin1999
你的寫法在VB環境中並無函數可利用
所以使用氣泡排序法
在EXCEL的VBA中，因為已經有工作表函數可利用所以就可善加利用
再參考這帖
請問如何將陣列中元素將其大小序號寫入第二維中?

學海無涯_不恥下問

linshin1999

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2011-1-8 00:24 | 只看該作者

本帖最後由 linshin1999 於 2011-1-8 00:32 編輯

回復 4# Hsieh

常常看到版主用到 Dictionary 的用法,要再用力去學, 那麼不同項目出現次數的加總,好像 Dictionary 就是為此設計的是嗎?我會去研究它.,謝謝!!

V98

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2011-1-9 15:37 | 只看該作者

陣列中排序看過許多方法，如一樓的冒泡法，還有桶排序法，希爾排序法，選擇排序法，快速排序法等等並一而足。效率相去不遠，也有人很費心的用遞迴編寫較高效率的排序。
這些方法永遠比不上excel自帶的排序，所以把陣列寫入工作表，用內建排序指令排序好再放入新的陣列是最快的方法！

asus103

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

7^#

發表於 2011-1-9 17:30 | 只看該作者

回復 6# oobird
如超級版主所言
"把陣列寫入工作表，用內建排序指令排序好再放入新的陣列是最快的方法！"
可否請您寫一段程式碼示範，讓我有多一個學習的機會
謝謝

ASUS

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-1-9 19:23 | 只看該作者

回復 7# asus103

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

複製代碼

linshin1999

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2011-1-9 22:21 | 只看該作者

有些資料是不適合到工作表去處理的,我的資料是要作設定用的,在工作表上的欄列很大,約有(2000~10000),如果有與資料檔上相同的資料要被作記號,比如字型被黑體字代替,因為資料檔有大小次序所以要排好次序以再去比對會比較快,它是背景作業不是前景作業,只能用陣列來寫不能用 Range 處理,我知道 Excell 上的 sort 功能,但是用不上. 所以看是不是有直接的方式去呼叫,没有就自己寫了,謝謝大家.

V98

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

10^#

發表於 2011-1-9 22:33 | 只看該作者

回復 9# linshin1999

txt檔排序顛倒

學海無涯_不恥下問