工作表格按列进行拆分为多个工作薄：
请教一下，我工作中的一个表，前6列的内容为公共内容，后面每一列为一个点位相对于公共名称的数量，我需要按公共信息进行拆分，把每一列拆分为一个工作薄，每个工作薄都需要保留前面6列的公共信息，每一个表一列。请问我应该怎么写VBA进行解决？
*物资代码 *物料名称代码 *计量单位 *使用数量 预估单价（元） *物资来源 备注 520526_A6_0001 520526_B6_0002 520526_C6_0003 520526_D6_0004 520526_E6_0005
10170115 通用物资1 套 637.89 1525.01 甲供 36.555 13.65 3.892 9.495 14.919
10170127 通用物资2 套 0.63 2622.97 甲供
10170151 通用物资3 套 3.16 4241.89 甲供
10396793 通用物资4 套 50.00 18.35 甲供 19 10 4 4 4
10396794 通用物资5 套 2455.00 18.53 甲供 39 8 7 20 27
10396795 通用物资6 套 26.76 甲供
10392947 通用物资7 套 316.00 46.62 甲供 6 2 1 3 3
10392945 通用物资8 套 1952.00 34.28 甲供 50 15 9 21 27
10510378 通用物资9 套 620.00 7.46 甲供 12 6 2 2 2
10510381 通用物资10 套 620.00 15.23 甲供 12 6 2 2 2
10510379 通用物资11 套 7440.00 0.77 甲供 144 72 24 24 24
10494633 通用物资12 套 470.00 3.99 甲供 8 3 3 3 4
10494313 通用物资13 套 601.00 8.55 甲供 4 2 1 2
10494355 通用物资14 套 9072.00 2.83 甲供 224 68 40 96 120
前面7列为公共信息，拆分后的每个工作薄都要有这7列的公共信息。7列公共信息+每一列的内容，单独成为多个工作薄文件，求指教！
