Excel UserForm循环写入多行数据失败：重复覆盖首行问题排查

原代码的核心问题 #

• contar变量未赋值，循环次数完全没定义，等于没执行有效循环
• 变量声明语法错误：VBA里不能直接Dim a=1，必须先声明类型再赋值
• textbox=""写法错误，要指定控件名称TextBox1.Value = ""，还多了无效的your text内容
• 如果是想每次点击按钮写一条数据到新行，循环逻辑完全不对，应该找工作表最后一行来追加，而非固定循环变量

修正方案1：指定循环次数批量输入 #

如果要执行n次循环（比如n=5），每次让用户输入内容并依次写入不同行：

Private Sub CommandButton1_Click()
    Dim contar As Integer
    Dim a As Integer
    ' 定义循环次数，也可以从另一个输入框获取，比如contar = TextBox2.Value
    contar = 5
    a = 1
    
    Do While a <= contar
        ' 弹出输入框获取内容，也可以直接用当前窗体的TextBox1
        Dim inputVal As String
        inputVal = InputBox("请输入第" & a & "条数据")
        ' 写入到Datos工作表的J列，从第2行开始
        Sheets("datos").Range("J" & a + 1).Value = inputVal
        a = a + 1
    Loop
End Sub

修正方案2：单次点击写入一条到新行 #

如果是每次点击按钮，把当前TextBox1的内容写到J列下一个空行，无需循环：

Private Sub CommandButton1_Click()
    Dim lastRow As Long
    ' 找到J列最后一行的行号
    lastRow = Sheets("datos").Cells(Rows.Count, "J").End(xlUp).Row
    ' 写入到最后一行的下一行
    Sheets("datos").Range("J" & lastRow + 1).Value = TextBox1.Value
    ' 清空输入框
    TextBox1.Value = ""
End Sub

额外注意事项 #

• 确保工作表名称datos拼写正确，VBA对工作表名称大小写不敏感，但不能写错字
• 如果用窗体的TextBox输入，要保证点击按钮时TextBox有有效内容
• 变量尽量指定具体类型（比如Integer、Long），别用Variant，避免意外错误

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