扫码输入后自动比较2个单元格部分内容

雪之花

麻烦老师抽空帮忙解答，
扫码输入C栏和D栏单元格，E栏对C栏和D栏的第一个*前所有内容的比较，并显示结果和自动跳转，感谢解答！！

剑指E

没有枪，你试试。

nicleyuan

没有枪没有炮，敌人给我们造。
你试试。

雪之花

剑指E 发表于 2023-2-12 00:07
没有枪，你试试。

感谢帮忙！当比对“NG”错误后，应该是自动跳转到下一行的D栏 扫入，然后C栏和D栏最后单元格（不同行）比较。

雪之花

nicleyuan 发表于 2023-2-12 10:06
没有枪没有炮，敌人给我们造。
你试试。

比对逻辑结果是正确的，就是自动跳转的方式不对，感谢帮忙

雪之花

nicleyuan 发表于 2023-2-12 10:06
没有枪没有炮，敌人给我们造。
你试试。

师兄可否增加A列的序号代码，非常感谢

nicleyuan

雪之花 发表于 2023-2-14 13:45
师兄可否增加A列的序号代码，非常感谢

B列呢，时间你自己录入？

nicleyuan

雪之花 发表于 2023-2-14 13:45
师兄可否增加A列的序号代码，非常感谢

加了序号
加了注释
加了跳转顺序
加了...

雪之花

nicleyuan 发表于 2023-2-14 18:20
加了序号
加了注释
加了跳转顺序

师兄的代码跳转里面
Range("C" & lastrowii + 1).Select   和       Range("D" & lastrowii + 1).Select  位置互换下功能就可以实现了。

如果第一行的A1：E1区域不在运算范围，又如何改，谢谢回复！

nicleyuan

雪之花 发表于 2023-2-15 10:12
师兄的代码跳转里面
Range("C" & lastrowii + 1).Select   和       Range("D" & lastrowii + 1).Select ...

默认就是选中c2单元格的，不会选中第一行的。

如果要加，
  If Target.Row = 1 Then Exit Sub
把这一句话放在
If Target.Count > 1 Then Exit Sub 前面或者或者后面都 可以