VBA表单TextBox输入字符自动跳转行列问题求解

嘿，我一眼就看出问题出在哪了！你当前绑定的是txtLocation_Change()事件——这个事件的特性是**文本框内容每变化一次（不管是输入还是删除一个字符）**就会触发一次代码执行。所以你每敲一个字，程序就会跑一遍填充逻辑，自然会不断跳到新的行和列，完全打乱了你的输入节奏。

正确的解决思路 #

我们应该把填充逻辑放到提交按钮的点击事件里，这样只有当你输入完内容、主动点击提交时，才会执行一次填充操作，完美避免实时跳转的问题。

修改后的完整代码 #

首先给你的表单添加一个提交按钮（比如命名为cmdSubmit），然后把下面的代码放到按钮的Click事件中：

Private Sub cmdSubmit_Click()
    Dim ws As Worksheet
    Set ws = Worksheets("Location")
    
    ' 获取A列最后一行（纵向填充的起始行）
    Dim newRow As Long
    newRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 获取第1行最后一列（横向填充的起始列）
    Dim newCol As Long
    newCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column + 1
    
    ' 先检查文本框是否为空，避免无效提交
    If Trim(Me.txtLocation.Value) <> "" Then
        ' 纵向填充到A列的新行
        ws.Cells(newRow, 1).Value = Me.txtLocation.Value
        ' 横向填充到第1行的新列
        ws.Cells(1, newCol).Value = Me.txtLocation.Value
        
        ' 可选优化：清空文本框，方便下一次输入
        Me.txtLocation.Value = ""
        ' 可选优化：让光标回到文本框，提升操作流畅度
        Me.txtLocation.SetFocus
    End If
End Sub

额外的优化说明 #

• 我把原来的CountA换成了ws.Cells(ws.Rows.Count, "A").End(xlUp).Row，这种方式更可靠，能避免A列中间有空白单元格时计算错误的情况；
• 加了非空判断，防止不小心提交空内容；
• 最后那两行可选代码能让输入完提交后自动清空文本框并聚焦，用起来更顺手。

最后别忘了把原来的txtLocation_Change()事件代码删掉或者注释掉，避免两个事件冲突哦！

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