如何对字典的键值进行排序处理

大家好，今日我们继续讲解VBA数组与字典解决方案，今日讲解第59讲内容：利用工作表函数，对字典的键值按大小排序,并给出对应的键.

在字典和数组中,是不能如工作表中那样进行直接排序的,需要借助于函数来进行.我在上一讲中讲了利用工作表函数large进行排序的方法，今日我们讲解利用MAX排序，已经利用match定位的方法.关于这些函数，在本书中不做重点的讲解，只是利用，如果不清楚，可以参考我的其他书籍资料，或者到网上搜索相关的资料参考。

实例，如下面截图数据，在A列中有若干数据，我们要对齐排重处理，同时要统计出每个数据的出现次数，最后按出现的次数进行多少排序：

思路，和上一讲大体一致，我们要把这些数据首先装到字典中，在装的同时要计算每个数字出现的次数，然后对出现的次数建立循环，每次取出最大值，并根据最大值的位置求出对应的键，当每次取出最大值后要把这个最大值变成空，以便下次取还是最大值。下面看我给出的代码：

Sub mynzsz_59() '第59讲 利用工作表函数，对字典的键值按大小排序,并给出对应的键

Dim ran

Sheets("59").Select

Set mydic = CreateObject("Scripting.Dictionary") '字典

TT = Cells(Rows.Count, 1).End(xlUp).Row

For Each ran In Sheets("59").Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)

If ran.Value <> "" Then

If Not mydic.exists(ran.Value) Then

mydic.Add ran.Value, 1 '需要注意此处要加VALUE

Else

mydic(ran.Value) = mydic(ran.Value) + 1

End If

End If

Next

'注意此处把字典的键和键值取出

k = mydic.keys: T = mydic.items

'建立数组，用于存放目标数据

ReDim X(1 To mydic.Count, 1 To 2)

For i = 1 To mydic.Count

X(i, 2) = Application.Max(T)

'找到键的位置

W = Application.Match(X(i, 2), T, 0) - 1

'提取键

X(i, 1) = k(W)

'相应的键值变成空，以用MAX函数

T(W) = ""

Next

[e:f].Clear

[E1] = "排序": [f1] = "重复次数"

Sheets("59").[E2].Resize(mydic.Count, 2) = X

End Sub

代码截图：

代码解析：

1 上述代码实现了: 这些数据首先装到字典mydic中，在装的同时要计算每个数字出现的次数，放到键值中，然后提取出见和键值放到数组中k = mydic.keys: T = mydic.items

在键值中建立循环，利用MAX函数每次取出最大值，并根据最大值的位置W = Application.Match(X(i, 2), T, 0) - 1求出对应的键，当每次取出最大值后要把这个最大值变成空，以便下次取的还是最大值有效.最后回填数据。

2 Set mydic = CreateObject("Scripting.Dictionary") '字典

上述语句创建字典

3 For Each ran In Sheets("59").Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)

If ran.Value <> "" Then

If Not mydic.exists(ran.Value) Then

mydic.Add ran.Value, 1 '需要注意此处要加VALUE

Else

mydic(ran.Value) = mydic(ran.Value) + 1

End If

End If

Next

上述语句将数值放到字典中，需要注意的是一定要用ran.Value，此处读者可以自己测试一下，如果不加value有什么不同，通过测试理解一下字典见和键值的意义。

4 '注意此处把字典的键和键值取出

k = mydic.keys: T = mydic.items

上述语句提取出键和键值到数组中

5 For i = 1 To mydic.Count

X(i, 2) = Application.Max(T)

'找到键的位置

W = Application.Match(X(i, 2), T, 0) - 1

'提取键

X(i, 1) = k(W)

'相应的键值变成空，以用MAX函数

T(W) = ""

Next

在上述语句中利用建立了一个循环，在每次循环中取max值，取出后将数值变成空。同时用W = Application.Match(X(i, 2), T, 0) – 1 函数找到键的位置.

6 [e:f].Clear

[E1] = "排序": [f1] = "重复次数"

Sheets("59").[E2].Resize(mydic.Count, 2) = X

End Sub

上述语句回填数据.

下面看运行的截图：

今日内容回向：

1 如何利用MAX 和MATCH进行排序？

2 上述在给字典赋值时不用VALUE是否可以？