利用字典对数据排序！

yanjie · 发表于 2010-2-18 21:41

今天做了一个利用字典对单元格数据排序，希望多提意见：
Sub 对字典排序()
'yanjie,2010-02-18
'排序！
Dim rg As Range, i%, j%, c, a
Dim dic As Scripting.Dictionary
Set dic = New Scripting.Dictionary

For Each rg In Sheet1.Range("A1:A10")
dic.Add rg.Row, rg.Value
Next
a = dic.Keys
For i = 1 To dic.Count
For j = i To dic.Count
If dic(a(i - 1)) > dic(a(j - 1)) Then
c = dic(a(i - 1))
dic(a(i - 1)) = dic(a(j - 1))
dic(a(j - 1)) = c
End If
Next
Next

Range("C1:C10") = Application.Transpose(dic.Items)
End Sub

对字典Dictionary排序_基础VBA.rar (9.13 KB, 下载次数: 213)

[ 本帖最后由 yanjie 于 2010-2-18 21:43 编辑 ]

cflood · 发表于 2010-2-18 21:54

学习学习。

yvhgydn · 发表于 2010-2-18 22:20

学习了，看懂了一点点，但到具体应用差的太远

laoyebin · 发表于 2010-2-18 22:48

字典不能有重复，限制很多哟

gljzyp · 发表于 2010-2-19 02:50

收藏了！谢谢！

[ 本帖最后由 gljzyp 于 2010-2-19 02:57 编辑 ]

蓝桥玄霜 · 发表于 2010-2-19 08:48

字典常常用于与求不重复值有关的问题，版主在这里用作普通的排序，也是一个独特的思路。
不过对于普通的排序问题，直接用数组或许会快些。

ning84 · 发表于 2022-12-12 22:19

准备工作已经做好，就是字典排序了。

Sub del1()
Dim Str
Dim Dict As Dictionary, Dict1 As Dictionary
Dim ii, jj
Set Dict = New Dictionary
Set Dict1 = New Dictionary
Dim Rng As Range, Rng1 As Range, Rng2 As Range
Dim Arr
Dim mR As Range, tmpRng As Range, tmp1, tmp2
With Sheet1
Set Rng = .Range(.Cells(3, 2), .Cells(.Cells(56656, 1).End(xlUp).Row, "Q"))
Set tmpRng = .Cells(1, "X")
End With
''
For Each mR In Rng
tmp1 = mR
If Val(tmp1) > Val(tmp2) Then
Set tmpRng = mR
tmp2 = tmp1
End If
Next mR
'Debug.Print tmpRng.Value, tmpRng.Address
For ii = 1 To Rng.Rows.Count
Str = Rng(ii, 0)
''
If IsDate(Str) Then
For jj = 2 To Rng.Columns.Count Step 2
Set Dict(Rng(ii, jj)) = Rng(ii, 0)
Next jj
End If
Next ii
''
For ii = 0 To Dict.Count - 1
'Debug.Print Dict.Items(ii).Address, Dict.Keys(ii).Address & "---",
With Dict
Set Rng1 = .Items(ii)
Set Rng2 = .Keys(ii)
'Dict1(.Items(ii)) = .Keys(ii)
End With
''
Set Dict1(Rng1) = Rng2
''
Debug.Print Dict1.Items(ii), Dict1.Keys(ii),
Debug.Print Dict1.Items(ii).Address, Dict1.Keys(ii).Address
Next ii
Stop
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 利用字典对数据排序！