Excel条码扫描场景下IN/OUT文本自动剪切跳转的VBA需求

核心VBA代码实现 #

直接在目标工作表的代码模块中添加以下事件代码，它会自动监听单元格内容变化并处理：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅处理单个单元格的变化（扫码器每次输入一个单元格）
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 限定处理范围：D-F列（列号4到6），且行号从2开始
    If Target.Column >= 4 And Target.Column <= 6 And Target.Row >= 2 Then
        ' 判断内容是否为IN或OUT（不区分大小写）
        If UCase(Target.Value) = "IN" Or UCase(Target.Value) = "OUT" Then
            ' 禁用事件防止循环触发
            Application.EnableEvents = False
            
            ' 将内容剪切到当前行的G列（列号7）
            Target.Cut Destination:=Me.Cells(Target.Row, 7)
            
            ' 激活下一行的B列（列号2），供下一次扫码使用
            Me.Cells(Target.Row + 1, 2).Activate
            
            ' 重新启用事件
            Application.EnableEvents = True
        End If
    End If
End Sub

操作步骤 #

• 打开你的Excel文件，右键点击目标工作表的标签（比如"Sheet1"），选择查看代码。
• 在弹出的VBA编辑器窗口中，粘贴上面的代码。
• 保存文件为启用宏的工作簿（.xlsm格式），否则宏无法运行。

代码说明 #

• 只响应单个单元格的变化，匹配扫码器每次输入一个单元格的特性。
• 仅处理D-F列的内容，避免干扰B、C列及其他区域。
• 不区分大小写判断IN/OUT，扫码时大小写差异不影响识别。
• 剪切内容后自动跳转到下一行B列，无需手动操作，适配1-3件物品的借还场景。
• 无行数限制，支持600行及以上的表格需求。

注意事项 #

• 确保扫码器已设置为输入后自动切换到下一个单元格（你已确认此设置正常）。
• 若需严格区分大小写，去掉代码中的UCase()函数即可。
• 首次启用宏时，Excel可能弹出安全警告，需手动启用宏才能生效。

内容的提问来源于stack exchange，提问作者btwolfe