如何创建Excel VBA实现A2-B2-A3-B3-A4重复数据输入模式

针对你需要的A2→B2→A3→B3→A4...重复输入模式，这里提供一个基于工作表事件的VBA解决方案，完美适配RFID阅读器和重量数据的配对录入需求：

核心代码 #

直接将以下代码粘贴到目标工作表的代码模块中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 忽略批量单元格修改，只处理单个输入
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 仅处理A2及以下的A、B列区域
    If Not Intersect(Target, Me.Range("A2:B" & Me.Cells(Me.Rows.Count, "A").End(xlUp).Row + 1)) Is Nothing Then
        Application.EnableEvents = False ' 临时禁用事件，避免循环触发
        
        Select Case Target.Column
            Case 1 ' 当前在A列（RFID标签输入）
                Target.Offset(0, 1).Select ' 跳转到同列B单元格
            Case 2 ' 当前在B列（重量数据输入）
                Target.Offset(1, -1).Select ' 跳转到下一行A单元格
        End Select
        
        Application.EnableEvents = True ' 恢复事件监听
    End If
End Sub

代码说明 #

• 触发逻辑：利用Worksheet_Change事件，每次单元格内容修改后自动执行跳转
• 范围限制：只对A2开始的A、B列生效，不会干扰其他区域的操作
• 防循环处理：跳转前禁用事件，避免单元格选中操作再次触发Change事件
• 跳转规则：严格遵循你需要的输入顺序，A列输入完立刻切到同B列，B列完成后直接跳下一行A列

使用步骤 #

1. 打开你的Excel文件，按下Alt+F11打开VBA编辑器
2. 在左侧工程窗口中找到目标工作表（比如Sheet1），双击进入代码编辑界面
3. 粘贴上述代码，保存文件为**启用宏的工作簿（.xlsm）**格式
4. 回到工作表，在A2输入RFID数据，回车后自动定位到B2；B2输入重量后，回车自动跳到A3，循环往复

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