未知的领域很广、风景很美，不要蜷缩在一小块自认为天堂的世界里。待到暮年时安于自欺欺人，要努力提高自己，学习是一件很辛苦的事。要有一颗充满生机的心，把握现在，这才是进取。机会总在等待中出现，越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。寻找心灵的平静；不管遇到什么，都是风景。怀善心，做善事。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。把浮躁的心静下来，去感悟真实的时间，静下心，多学习，积累福报。保持快乐的心态，坚定且执着。学习有用的知识，经营自己，而不是天天混日子，也不是天天熬日子。为后疫情时代做知识的储备。在今后更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。
在取代OFFICE新的办公软件没有到来之前，谁能数据处理做到最为极致，谁就是王者。其中登峰至极的技能非VBA莫属！
今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验的记录，来源于我多年的经验。最近代码多是出自"VBA数组与字典解决方案"教程，有一些朋友反映分享的内容不能很好的理解，可以参考这套资料的内容进行研读。今日分享的是第287期。
VBA过程代码287：利用工作表函数，对字典的键值按大小排序,并给出对应的键
Sub MyNZ ()
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
代码解析：上述代码首将数据装到字典mydic中，在装的同时要计算每个数字出现的次数，放到键值中，然后提取出见和键值放到数组中k = mydic.keys: T = mydic.items
在键值中建立循环，利用MAX函数每次取出最大值，并根据最大值的位置W = Application.Match(X(i, 2), T, 0) - 1求出对应的键，当每次取出最大值后要把这个最大值变成空，以便下次取的还是最大值有效.最后回填数据。
VBA是利用Office实现自己小型办公自动化的有效手段.我根据自己20多年的VBA实际利用经验，现在推出了四部VBA学习教程，也是我"积木编程"思想的具体体现。
第一：VBA代码解决方案，是VBA中各个知识点的讲解，这部教程可以覆盖绝大多数的知识点；
第二：VBA数据库解决方案，是数据处理的专业利器，详细的介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。
第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。字典是VBA代码水平提高的手段，值得深入的学习。
第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。
上述教程的学习顺序，1,3,2或者是4,3,2逐渐深入的了解VBA掌握VBA.目前正在集中精力写第五部教程：VBA中类的解读和利用，希望在年内能陆续在各个平台和大家见面。
利用VBA实现个人办公小型自动化非常值得学习，希望大家掌握这个工具，利用这个工具，让自己轻松，高效，快乐的工作。我的"积木编程"思想也是值得大家借鉴的，这种思想让大家在代码中解脱出来，成模块的构建自己的应用，提高自己的编程效率。根据我提供的经验，利用时间多学习。