扫描枪扫描数据录入五格后自动跳行

1、1.首先打开电脑上的EXEL表格,鼠标右键点击SHEET1，左键电建“查看代码”进入程序调试界面。

2、左键点击选择SHEET1，将以下代码粘上去，这是一段扫描记录五列后，再换行的程序，最后保存成xlsm文件。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Target.Column = 1 Then Target.Offset(, 1).Select

If Target.Column = 2 Then Target.Offset(, 1).Select

If Target.Column = 3 Then Target.Offset(, 1).Select

If Target.Column = 4 Then Target.Offset(, 1).Select

If Target.Column = 5 Then Target.Offset(1, -4).Select

End Sub