vba实现类似vlookup的功能

木易2008

表1是原始数据，表2上半部分是模块“提取佣金”实现的内容，
分别以开发关系、服务关系、所有关系做为行字段，
佣金率（取平均值并*10000）和股基净佣金（求和）做为值实现类似数据透视表的内容

表2的下半部分是模块（宏录制内容）实现的功能，通过姓名列来对上面3个表进行汇总，实现类似vlookup的内容

现在有2个问题，一个是宏录制内容如果使用代码该如何写，是使用字典吗？尝试了好多次没成功，是否可以通过表1的原始数据直接得到这个表的内容，而不通过“提取佣金”模块。

第二个问题是表格如果有规定的格式，如何快速建立表头的行和列，现在是通过下面这个代码来实现，如果人员有变动，就需要修改

[a31:H31] = [{"员工姓名", "岗位信息", "开发关系净佣金", "开发关系佣金率","服务关系净佣金","服务关系佣金率","合计净佣金","合计佣金率"}]
[a32:a52] = Application.Transpose([{"刘备", "", "黄忠", "马超","曹丕","夏侯惇","","张飞","黄忠", "马超","曹丕","夏侯惇","","马超","孙权", "关羽","魏延","李典", "周瑜","曹操","曹植"}])
[b32:b52] = Application.Transpose([{"营销总监", "", "财富顾问", "财富顾问","财富顾问","财富顾问","","客户经理","客户经理", "客户经理","客户经理","客户经理"，"","经纪人","经纪人","经纪人","经纪人","经纪人","经纪人","经纪人","经纪人"}])

WANT-T

梳理一下需求吧：
1、数据源是什么？
2、需求结果是什么？如：统计维度，字段等；
3、数据加工口径;如，佣金率：数据源中佣金率平均值*10000；
整理完之后，很快就有结果了，你的这中没头没脑的提问，不太容易出成果！
至于你的第二个问题，压根就不存在，也不勇单独涉及，按照以上要求梳理完口径，就都有了!不用单独设计思路！

ykcbf1100

代码未优化，用是能用的。