求一个VBA程序

杠精

处理的内容为D\E\F\G列 原理如下。

其关系如下：“原始表格”D列的支吊架形式作为查找源，截取第一位字母和表“对应关系”的第一列匹配，匹配不到就截取前两位进行匹配，一直到截取整个D列字符串。如果一直匹配不上，那就把D列内容粘贴到E列；如果可以匹配的到，看表“对应关系”的C\D\E\F\G五列，有几列有效数据，就在此行下面插入几行。在E列填入有效数据。除EFG列外，其余数据与原数据相同。至此E列处理完成。

F列重复E列处理方式，把处理完的E列数据再次处理。

G列数量关系：除NSF外，d-1钢管和HW H型钢的长度是XXXXX-H/L中的”对应关系“中的长度，垫板的数量在”对应关系“有写。其中NSF特殊 为XXXXX-A/B/C/D ，原材规格1的数量为”对应关系“中的长度 。原材规格2的数量为”对应关系“中的长度2。

举例1：以NKC025a举例，E列：截取D列前1位数据与”对应关系“表匹配，没有匹配到，那就截取前2位数据，也没有匹配到，直到截取整个字母，都没有匹配到，那么E列就把NKC025a抄过来。F列：截取E列前1位数据与”对应关系“表匹配，没有匹配到，那就截取前2位数据，也没有匹配到，直到截取整个字母，都没有匹配到，那么F列就把NKC025a抄过来。匹配不到的G列就填1。

举例2：以NSF14a-771/250/400/888举例。E列：截取D列前1位数据与”对应关系“表匹配，没有匹配到，那就截取前2位数据，也没有匹配到。直到截取前5位NSF14时，在”对应关系“中匹配到了。在”对应关系“的表中NSF14有C/D/E/F/G列有5个非空白规格，那就在NSF14a-771/250/400/888下加入4行数据，加上原来的一行共5行。除了EFG三列外，其余数据和原数据一致，将五个非空白规格填入这5行的E列里面.F列：截取E列前1位数据与”对应关系“表匹配，没有匹配到，那就截取前2位数据，也没有匹配到。直到截取全部数据时，D-1 200×200×14和D-1 150×150×10都没有匹配到，那就把D-1 200×200×14和D-1 150×150×10抄到F列上。当截取到NVJA200D-1b时，在”对应关系“中匹配到了。在”对应关系“的表中C/D/E/F/G列中有一个非空白数据δ=8，将此数据填入F列。NVJA150D-1a和NVA200D-1以此类推。G列：D-1 200×200×14对应的数量”对应关系“的数量。L+170+50是771+170+50=991，D-1 150×150×10对应的数量是”对应关系“中的数量2，D-100是400-100=300 。NVJA200D-1b”对应关系“对应的数量是0.055， NVJA150D-1a”对应关系“的数量是0.0196 ，NVA200D-1”对应关系“的数量为0.0625，分别填入G列。

PS：1.存在NVA125D-1*4 那就是数量上×4；

    2.能不能做到我新填入的数据也可以做到这样 ，而不是需要重新算整个表；

    3.能不能加注释呀，后期可能还有改。

   

3190496160

要看明白这一大篇说明，也不容易啊

杠精

写的比较详细