查找B列相同值的最末记录，如果日期不等于当前日期则插入记录，并复制上一条记录。

buzhenglin

向大佬求助：

   1、查找B列相同值的最末一条记录。
   2、如果E列日期不等于当前日期，则在其下自动新增一条记录。
   3、新增加的记录要复制上一条记录的公式及文本、数字。
   如图中借款人B最后一条记录中E列日期为2022-12-07，不等于当前日期，则需要在下面新插入一条记录并复制上一条记录的公式及文本、数字。

    目前能做到的是，人工查找到需要新增记录时，在其下手动插入一行，复制B、C列后自动填充上一行记录的公式。
    拜托了！！！

psxk3535

没有特别明白意思，不知是否适用，另外有单元格处理可能速度较慢，学习坛里大佬优质代码

buzhenglin

psxk3535 发表于 2023-1-10 01:14
没有特别明白意思，不知是否适用，另外有单元格处理可能速度较慢，学习坛里大佬优质代码

虽然没达到要求，但还是非常感谢您的付出，辛苦您了。

汉唐

看是否符合楼主你的需求

buzhenglin

汉唐 发表于 2023-1-11 09:24
看是否符合楼主你的需求

谢谢您，还是没达到要求。
1、这个表里的E列中有公式，是用D列来判断，如果D列日期增加1个月后还小于当前日期，就固定为E列日期增加1个月，否则就等于当前日期。
2、当同一借款人中最后一条记录的E列日期不等于当前日期时（即E列日期已过期），需要新增一条记录，复制上一条记录的公式及文本，由于有公式自动计算，会自动填写D、E列日期等。
３、想通过遍历B列，查找相同借款人的最后一条记录，判断E列日期如果不等于当前日期，就新增一条记录。然后继续查找第二个借款人的最后一条记录，直到最后一个借款人。

psxk3535

buzhenglin 发表于 2023-1-11 08:31
虽然没达到要求，但还是非常感谢您的付出，辛苦您了。

是点击B列的某一个名字，在针对这个人的记录进行处理吗？我是整个处理了

buzhenglin

psxk3535 发表于 2023-1-11 12:28
是点击B列的某一个名字，在针对这个人的记录进行处理吗？我是整个处理了

不是在B列点击某人名字，而是针对全表自动处理。

如：在B列查找借款人A的最后一条记录，如果E列日期不等于当前日期，则在其后插入一条新记录，复制上一条记录的公式、文本。如E列日期等于当前日期，则去查找B列中第二个借款人B的最后一条记录，如此循环。
      

汉唐

看下是不是这个意思？

buzhenglin

汉唐 发表于 2023-1-11 13:15
看下是不是这个意思？

谢谢您，完全能达到要求了。
唯一的问题是，如果B列借款人只有一条记录，就会无限添加同样的记录。可能是因为两列日期是由公式生成的原因。

可能的解决办法是：
1、删除原表中日期列里的公式。
2、VBA代码中加入新增的记录时，将两列日期中的公式写入VBA代码中。

能不能请大佬帮我完善一下？

汉唐

将
Do
……
Loop   Until   Cells(…)=Date
修改为：
Do While  Cells(…)< Date
……
Loop