今天遇到的问题如下:
解决的思路如下:
运行的结果如下:
代码如下:
代码解析:
1:dim 语句定义变量
2:set 语句设定字典
3:设定key2的值
4:遍历第一列的值,放入字典。并把第一列的值,重新设置为字典。然后把上述key2的值,放入新的字典。类似建立思路里面的表二
5:把问题的表一放入数组。
6:通过已知的的条件,查询字典。把结果写入数组
7:把数组写入原表格。
点击关注,可以阅读更多与VBA 相关的文章
私信 VBA 可以获取文章中含VBA代码的Excle文件
閱讀更多 浮雲Excel分享 的文章