excle中光标自动定位到空值

狂奔的蜗牛2500

扫描枪录入数据，3个数据为一组，正常扫描已经实现扫完向右一格，一组扫完去下一行。现在遇到一种物料，扫描完料号以后不会去右边一格，光标直接从表格中B5跳转到C7  
想要扫完一个数据以后，光标自动定位到BCD三列中最后一个空值。请各位大大帮忙看一下。该怎么弄。

砂海

可以考虑:
用文本文件 接受 扫描枪数据 , 看看是否有异常

狂奔的蜗牛2500

砂海 发表于 2023-1-7 12:05
可以考虑:
用文本文件 接受 扫描枪数据 , 看看是否有异常

试过文本，正常物料都是一列下来。异常物料扫描料号会空1行。直接从A1跳到A3这样的。

狂奔的蜗牛2500

持续关注中，有没有大佬帮忙看看呀  非常感谢

砂海

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row
    c = Target.Column

    Application.EnableEvents = False    'a:可能不需要 , 或者不该有本句

    If Target.Value = "" Then
        Cells(r, c).Activate    ' 当出现空值时 , 当前单元格任然 Activate
    Else
        If c = 2 Then Cells(r, 3).Activate
        If c = 3 Then Cells(r, 4).Activate
        If c = 4 Then Cells(r + 1, 2).Activate
    End If

    Application.EnableEvents = True     'b: 如果没有a, 本句也不需要

End Sub