A:2 条码枪扫描条码后，光标移动到下一列
B:2-I:2 蓝牙游标卡尺，卡尺上有回车按钮，8个数字上传
J:2-Q:2蓝牙游标卡尺，卡尺上有回车按钮，8个数字上传
Q列输入完成后，光标自动转移到下一行首列，
循环
给个代码：
Private Sub Worksheet_Change(ByVal Target As Range)
r = Selection.Row
c = Selection.Column
If c < 17 Then
Cells(r - 1, c + 1).Select
Else
Cells(r, 1).Select
End If
End Sub
用法：复制以上代码，右键点工作表标签，选查看代码，粘贴到新开的窗口中。关闭新窗口，回到Excel中，就可以使用了。
Private Sub Worksheet_Change(ByVal Target As Range)
r = Selection.Row
c = Selection.Column
If c < 17 Then
Cells(r - 1, c + 1).Select
Else
Cells(r, 1).Select
End If
End Sub
用法：复制以上代码，右键点工作表标签，选查看代码，粘贴到新开的窗口中。关闭新窗口，回到Excel中，就可以使用了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2018-01-16
其实就是单元格输入选择定位，用单元格SELECT功能就可以，
如果你能够得到条码枪的扫描信息，并让这个信息输入到单元格，那么，我觉得你应该是会用定位选择功能的，
如果你能够得到条码枪的扫描信息，并让这个信息输入到单元格，那么，我觉得你应该是会用定位选择功能的，
