求助DO until 下IF函数写法

panhaitao

我这里有有2个条件，
1.i,5>i,6时，a等于i,6,这里有句我不知道怎么表达，
比如i,5=3500，i,6=1000,a则拆分成，1000，1000，1000，500，四行
2.i,5<=i,6时，a等于i,5
附图是手动输入的实现后的样子

Do Until (a <= 0)
              ResultArr(n, 1) = RngJLB(i, 1)
               ResultArr(n, 2) = RngJLB(i, 2)
               ResultArr(n, 3) = RngJLB(i, 3)
             ResultArr(n, 4) = RngJLB(i, 4)
                ResultArr(n, 9) = a
               a = Val(RngJLB(i, 5)) - Val(RngJLB(i, 6))
               Else
                   a = Val(RngJLB(i, 5))

              n = n + 1
               End If
        Loop

maditate

难怪楼主写不出，楼主写的说明我连看都看不懂。

panhaitao

maditate 发表于 2019-8-25 09:51
难怪楼主写不出，楼主写的说明我连看都看不懂。

谢谢老师回复！

山菊花

供参考。

panhaitao

山菊花 发表于 2019-8-25 17:28
供参考。

  老师，拆分是这样的，我想再请问下，456工作表要匹配EF列，数据源是123工作表DF列，求教要怎么做呢？
下图是手工输入完成效果！因为有重复数据是不是要用到字典，这个我是一点不懂，麻烦老师了，感谢！

山菊花

楼上附件已更新，请重新下载。数据如何对应，我看不懂，自己改一下。

panhaitao

山菊花 发表于 2019-8-25 18:59
楼上附件已更新，请重新下载。数据如何对应，我看不懂，自己改一下。

老师，其它都实现了，现在就是这个问题，456表内A列含有MPU,它匹配出来的E列发票号最后也应是含有MPU，在123表内可以查到这笔

要的效果

实际状况