Excel VBA新增表格行后如何写入数据？求表单录入实现方案

核心思路 #

你已经完成了新增表格行的操作，只需把新增的行对象存入变量，就能直接通过该变量向指定列写入数据。另外要注意明确指定表格所在的工作表（别依赖ActiveSheet，避免切换工作表时出错），毕竟你的表单在另一张工作表上。

基础实现代码 #

Sub 新增并写入数据()
    Dim tblWs As Worksheet
    Dim tbl As ListObject
    Dim newRow As ListRow ' 保存新增的行对象
    
    ' 替换成表格实际所在的工作表名称
    Set tblWs = ThisWorkbook.Worksheets("表格工作表")
    Set tbl = tblWs.ListObjects("Prueba")
    
    ' 新增行并将其保存到变量
    Set newRow = tbl.ListRows.Add
    
    ' 方式1：按列索引写入（第1列、第2列...）
    newRow.Range(1) = "张三"
    newRow.Range(2) = 25
    newRow.Range(3) = "zhangsan@example.com"
    
    ' 方式2：按列名称写入（更直观，列顺序调整后也不用改代码）
    newRow.Range(tbl.ListColumns("姓名").Index) = "李四"
    newRow.Range(tbl.ListColumns("年龄").Index) = 30
    ' 另一种按列名写入的写法
    tbl.ListColumns("邮箱").DataBodyRange(newRow.Index) = "lisi@example.com"
End Sub

结合表单的实际场景 #

假设你的表单在名为表单的工作表中，输入内容的单元格是：

• 姓名：表单!A1
• 年龄：表单!B1
• 邮箱：表单!C1

可以直接从这些位置读取数据写入表格：

Sub 从表单新增数据()
    Dim tblWs As Worksheet
    Dim formWs As Worksheet
    Dim tbl As ListObject
    Dim newRow As ListRow
    
    ' 指定表格和表单所在的工作表
    Set tblWs = ThisWorkbook.Worksheets("表格工作表")
    Set formWs = ThisWorkbook.Worksheets("表单")
    Set tbl = tblWs.ListObjects("Prueba")
    
    ' 新增行
    Set newRow = tbl.ListRows.Add
    
    ' 从表单读取数据写入对应列
    newRow.Range(tbl.ListColumns("姓名").Index) = formWs.Range("A1").Value
    newRow.Range(tbl.ListColumns("年龄").Index) = formWs.Range("B1").Value
    newRow.Range(tbl.ListColumns("邮箱").Index) = formWs.Range("C1").Value
    
    ' 可选：写入完成后清空表单内容
    formWs.Range("A1:C1").ClearContents
End Sub

注意事项 #

• 别用ActiveSheet：用户操作时可能切换到其他工作表，直接指定工作表名称更稳定。
• 优先按列名写入：后续调整表格列顺序时，代码不需要修改。
• 表格为空时也能正常新增：ListRows.Add会自动在表头下方添加第一行数据，无需额外判断。

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