求助怎么把一个表格信息提取到另外一个表格相对应的不同位置里？

链接：https://pan.baidu.com/s/18s8GqiPjX-_rbk4lmrXgkw?pwd=tmud
提取码：tmud

链接：m[有效] 网页链接
提取码：tmud

1.下载文件包内文件 2.安装bas文件（该功能为：一键批量创建对应名称的工作表） 3.打开excel，选中人名列（要保证没有重名的），运行“一键创建对应名称的工作表”程序 4.选中模板和后面生成的所有“以人名为工作簿名称的文件” 5.填充至同组工作表→全部 6.完成工作

用VBA
1，子表1 ——“名单“，子表2——“模板”（就下图“老年人医养。。。”）
2，先按人数新建同等数量子表，并以身份证号码命名子表（防止重复）
3，以名单内的数据，建立4个字典d1 d2 d3 d4，key都是身份证号码，item分别姓名，性别，年龄，电话
4，子表for循环复制模板到，同时用查字典的方式把对应的姓名，性别，年龄，电话填入，身份证号=子表名
5，需要合并到一张表，就再写个合并sub