字典排序_ExcelVBA_016 使用字典求最大值和排序

一、需求说明

原始表格：客户在多个银行想为其银行账户开通理财，用户信息包括开户行，姓名，账号，余额情况，想要批量生成每个人的银行账户申请。

实现表格：

    按姓名排序，第4列信息，同一客户需要从最大余额账户中扣费。

二、实现思路

    使用字典dic保存下保存和构建信息，使用一个字典dMax保存和比对同一个客户的账户以及余额，借此求出每个客户对应的最大余额账户，最后使用字典dOrder在比对的过程中储存结果信息，同时排序。

三、实现代码

Public Sub Basic_CodeFrame()    '作者  DG-NextSeven    'QQ   84857038    '日期  2020年04月09日    '说明  提取最大值    '声明变量    Dim dic, dMax, dOrder    Dim Wb As Workbook, Sht As Worksheet