基于单元格值自动填充Excel Online新行技术方案咨询

方法1：用Excel内置公式实现（无需宏） #

这种方法适合不想启用宏的场景，利用Excel表格的自动填充特性：

1. 选中存储MS Forms响应的整个数据区域，按Ctrl+T将其转换为Excel表格，勾选「我的表格有标题」确认。
2. 在需要自动填充的目标列（比如B列）的第一行数据单元格（表头下方的第一个单元格），输入公式：

   =IF(ISBLANK([@[目标列标题]]), [@[首列标题]], [@[目标列标题]])
   

   替换[目标列标题]和[首列标题]为你表格中实际的列名（比如首列是「问卷ID」，目标列是「自动填充ID」）。
3. 当MS Forms新增响应行时，Excel表格会自动将公式应用到新行，自动复制首列的值到空的目标单元格；若手动修改目标单元格内容，公式会保留修改后的值。

方法2：用VBA宏实现（纯值填充） #

如果需要目标单元格直接填充纯值而非公式，可使用宏：

1. 打开你的Excel文件，按Alt+F11打开VBA编辑器。
2. 在左侧工程窗口中找到存储Forms响应的工作表，双击打开其代码窗口。
3. 粘贴以下代码，根据你的实际列序号修改targetCol和firstCol的值（比如首列是A列则设为1，目标列是B列则设为2）：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim ws As Worksheet
       Dim targetCol As Integer
       Dim firstCol As Integer
       
       Set ws = Me
       targetCol = 2 ' 修改为你的目标列序号
       firstCol = 1 ' 修改为你的首列序号
       
       ' 仅处理Forms新增的响应行
       If Target.Row > ws.ListObjects(1).HeaderRowRange.Row Then
           With ws.Cells(Target.Row, targetCol)
               If .Value = "" Then
                   .Value = ws.Cells(Target.Row, firstCol).Value
               End If
           End With
       End If
   End Sub
   

4. 保存文件为**启用宏的工作簿（.xlsm）**格式，确保Excel宏安全设置允许运行宏。
5. 后续MS Forms新增响应时，宏会自动检查目标单元格是否为空，为空则直接复制首列的纯值到目标单元格。

注意事项 #

• 方法1的公式方案，若需要将公式结果转为纯值，可选中目标列区域，右键选择「复制」，再右键选择「粘贴值」。
• 方法2的宏仅对当前工作表生效，若有多个Forms响应表，需为每个工作表单独添加代码。

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