Excel vba按照表头字段选择列复制表

问题描述：从网上下载的表单包含上百个字段，并且表单中的字段顺序经常混乱，制作报表过程中只需要其中的几个字段，因此需要设计一个宏，实现提取特定字段的表。

目标：根据sheet2第一列提供的字段，从sheet1中搜索表头，依次复制到sheet3中

Ps: 自己是非专业开发人士，在网上搜了很久没找到现成的代码，东拼西凑终于写出来可以运行了，有一个bug也不管了（sheet2中出现sheet1中未包含的字段则会报错），只要报表数据定义是明确的就可以执行，如有错误或优化建议请指正。

原始数据表sheet1：

待复制的表头sheet2：

最终生成的表sheet3:

实现方式: 

Sub 根据字段复制列()     '三个表，第一个表为原始数据，第二个表为待读取的字段，第