有偿求助3，工作薄逐行对比，不同的整行新增去另一个工作薄

yaojil

朱荣兴 发表于 2018-6-24 11:32

运行后  34 行 与 37 行 应该是重复的吧！
我二楼的代码运行后是 36行

liren009

朱荣兴 发表于 2018-6-24 11:31
不明白你的第1和第2中情况，是否也需要判断相同，还是只要有关键字就拷贝，现在的代码是按照只要有关键字就 ...

第1和第2种情况，是不需要判断列值是否相同的。一旦在备注列出现包含“新增”“通用件”关键字的文本，就直接复制到另外一个工作薄

liren009

朱荣兴 发表于 2018-6-24 14:23
那现在的代码就应该能够满足你的需求了呀

应该是，晚上好好检查一下就可以了，在上班呢

liren009

朱荣兴 发表于 2018-6-24 14:23
那现在的代码就应该能够满足你的需求了呀

存在重复行哦，有3行重复的，我要求的是后一个工作簿没有的才新增，你的表把后一个工作簿有的都复制过去了，就重复了，目前发现3行重复的

liren009

新的要求，不要管“新增”和“通用件”，即J列文本含有“通用件”，“新增”字样的，统统不参与以下5个步骤，排除在代码的选择范围之外。而且，E列G列参与对比。D列的对比是否相同，相同的条件必须完全一致，D列是长文本字符吧？必须完全一样才算一样。比如：圆铁片D90*T3/中孔12.5/在D70处均分5个4.5孔/镀美金和圆铁片D90*T3/中孔12.5/在D70处均分5个4.5孔/镀韩国金 就不一样
1.  判断A列是否一样，
情况甲：行Q与薄2中所有行的A列不一样（空行不做比较），因为每天都要更新数据，所以当出现列A列不一样，那么就证明不是同一天的，就证明是今天的新东西，就复制过去，；
情况乙：行Q与薄2中对比对象行的A列一样,那么进入第2步
特殊情况：薄1的行Q的A列为空值，那么直接跳到行Q的下一行作为新的Q行对比参照行，
               薄2的行的A列为空值，那么薄1的行Q不与其进行对比，直接找薄2中该空行的下一行做对比
               实际的表单会有空行，但是不会有ABCD为空的情况，目前没遇到过

2.判断B列是否一样
  经过第1步，满足情况乙，才会来到这一步：

   此步的情况甲：薄1的行Q与薄2中对比对象行的B列不一样（不会有空值,A列一样步骤1呢），那么证明这是一个新的型号（B列代表型号）   ，就复制该行（Q行） 到薄2去，然后该Q行的下一行作为Q行，与薄2的每一行都进行“1，2，3，4，5”的步骤
            情况乙：薄1的行Q与薄2中对比对象行的B列一样（不会有空值A列一样步骤1呢），那么进入第3步

3、判断D列是否一样
    经过第2步，满足情况乙，才会来到这一步：

   此步的情况甲：薄1的行Q与薄2中对比对象行的D列不一样（AB都一样），那么证明这是一个新的物品（D列代表物品）   ，就复制该行（Q行） 到薄2去，然后该Q行的下一行作为Q行，与薄2的每一行都进行“1，2，3，4，5”的步骤
            情况乙：薄1的行Q与薄2中对比对象行的D列一样（AB都一样），那么进入第4步

4、判断E列是否一样
    经过第3步，满足情况乙，才会来到这一步：

   此步的情况甲：薄1的行Q与薄2中对比对象行的E列不一样（ABD都一样），那么证明这是一个新的订单的物品（E列代表订单）   ，就复制该行（Q行） 到薄2去，然后该Q行的下一行作为Q行，与薄2的每一行都进行“1，2，3，4，5”的步骤
            情况乙：薄1的行Q与薄2中对比对象行的E列一样（ABD都一样），那么进入第5步

5、判断G列是否一样
    经过第4步，满足情况乙，才会来到这一步：

   此步的情况甲：薄1的行Q与薄2中对比对象行的G列不一样（ABDE都一样），那么证明这是一个新的支数的物品（G列代表物品）   ，就复制该行（Q行） 到薄2去，然后该Q行的下一行作为Q行，与薄2的每一行都进行“1，2，3，4，5”的步骤
            情况乙：薄1的行Q与薄2中对比对象行的G列一样（ABDE都一样），那么不做比较，没有下一步了，就直接用薄1Q行的下一行作为Q行来循环步骤“1，2，3，4，5”