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

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

2、左键点击选择SHEET1，将以下代码粘上去，这是一段扫描记录五列后，再换行的程碌食撞搁序，最后保存成xlsm文件。Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count > 1 Then Exit SubIf Target.Column = 1 Then Target.Offset(, 1).SelectIf Target.Column = 2 Then Target.Offset(, 1).SelectIf Target.Column = 3 Then Target.Offset(, 1).SelectIf Target.Column = 4 Then Target.Offset(, 1).SelectIf Target.Column = 5 Then Target.Offset(1, -4).SelectEnd Sub