如何实现表单提交时将多人数据批量插入到数据表的多行中？

嗨，我完全懂你现在的困扰——作为刚接触编码的新手，要完成这个批量录入6个人数据的任务，结果新数据总是覆盖第一行，没法依次写到A2:J7的每一行对吧？别慌，我来给你拆解一下解决思路和具体代码，分两种常见场景来说：

场景1：Google Sheets + Google Forms（带提交触发器） #

如果你的表单是Google表单，数据要写到Google表格里，核心思路是先找到表格里已有数据的最后一行，再把6个人的数据依次追加到后面，而不是固定写到A2开始的位置。

这里给你一段可以直接用的Google Apps Script代码，你可以根据自己的表单字段调整：

function onFormSubmit(e) {
  // 获取表单提交的所有数据，e.values里第一个元素是默认的提交时间戳
  const rawResponses = e.values;
  // 去掉时间戳，剩下的就是6个人各10项数据（共60个值）
  const allPersonData = rawResponses.slice(1);

  // 替换成你实际的工作表名称
  const targetSheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("数据记录表");
  // 找到表格里最后一行有数据的行号
  const lastUsedRow = targetSheet.getLastRow();

  // 循环处理6个人的数据，每人一组10个值
  for (let personIndex = 0; personIndex < 6; personIndex++) {
    // 截取当前这个人的10项数据
    const singlePersonData = allPersonData.slice(personIndex * 10, (personIndex + 1) * 10);
    // 把数据写入到下一行，从A列开始（第1列），一行10列
    targetSheet.getRange(lastUsedRow + 1 + personIndex, 1, 1, 10).setValues([singlePersonData]);
  }
}

关键说明：

• 要确保你的表单字段顺序是：第1人10个字段→第2人10个字段→…→第6人10个字段，这样代码截取的数据才不会错位
• 设置触发器：打开脚本编辑器后，点击顶部「编辑」→「当前项目的触发器」，添加一个「表单提交」类型的触发器，绑定上面的onFormSubmit函数
• 测试时可以提交一次表单，看看数据是不是正确追加到了表格末尾，没有覆盖之前的内容

场景2：Excel VBA + 表单控件 #

如果是用Excel里的表单控件（比如文本框）来录入数据，思路同样是找到最后一行，再逐行写入：

Private Sub SubmitButton_Click()
    ' 替换成你的工作表名称
    Dim dataSheet As Worksheet
    Set dataSheet = ThisWorkbook.Sheets("数据记录表")
    
    ' 找到A列最后一行有数据的行号
    Dim lastUsedRow As Long
    lastUsedRow = dataSheet.Cells(dataSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理6个人的数据，假设你的文本框是TextBox1到TextBox60（每人10个）
    Dim personNum As Integer
    For personNum = 0 To 5
        ' 写入当前人的第1到第10项数据到对应行的A-J列
        dataSheet.Cells(lastUsedRow + 1 + personNum, 1).Value = Me.Controls("TextBox" & (personNum * 10 + 1)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 2).Value = Me.Controls("TextBox" & (personNum * 10 + 2)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 3).Value = Me.Controls("TextBox" & (personNum * 10 + 3)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 4).Value = Me.Controls("TextBox" & (personNum * 10 + 4)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 5).Value = Me.Controls("TextBox" & (personNum * 10 + 5)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 6).Value = Me.Controls("TextBox" & (personNum * 10 + 6)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 7).Value = Me.Controls("TextBox" & (personNum * 10 + 7)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 8).Value = Me.Controls("TextBox" & (personNum * 10 + 8)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 9).Value = Me.Controls("TextBox" & (personNum * 10 + 9)).Value
        dataSheet.Cells(lastUsedRow + 1 + personNum, 10).Value = Me.Controls("TextBox" & (personNum * 10 + 10)).Value
    Next personNum
    
    ' 清空所有文本框，方便下次录入
    Dim txtBox As Control
    For Each txtBox In Me.Controls
        If TypeName(txtBox) = "TextBox" Then
            txtBox.Value = ""
        End If
    Next txtBox
End Sub

关键说明：

• 要确保你的表单文本框命名和代码里的一致（比如第1人的第1个文本框叫TextBox1，第2人的第1个叫TextBox11，以此类推）
• 把代码绑定到提交按钮的点击事件上，点击按钮就会自动录入数据

如果还有细节需要调整，比如表单字段顺序不同，或者表格结构有变化，随时告诉我就行！

备注：内容来源于stack exchange，提问作者JohPer