Excel VBA点击按钮提交表单时自动追加Machining固定行的实现问题

核心思路 #

不需要改动你现有的数据转移逻辑，只需要在原有代码完成所有表单数据写入目标工作表的操作后，新增一段代码找到目标表的最新空行，写入Machining对应的各字段内容即可，因为这段逻辑在所有原有写入操作之后执行，所以Machining记录会永远排在本次同步的所有数据的最后一行。

操作步骤 #

1. 找到你现有代码中完成所有表单数据写入目标跟踪表的位置，在这行代码的后面插入下面的新增代码段
2. 根据你实际的目标表名、字段列对应关系修改代码里的参数即可

新增代码示例 #

' 自动追加Machining固定记录
Dim targetSht As Worksheet
Dim nextEmptyRow As Long

' 请替换双引号内的内容为你实际的任务跟踪表名称
Set targetSht = ThisWorkbook.Worksheets("任务跟踪表")
' 定位到目标表当前已用行的下一行空行，这里用A列判断行号，可替换为你实际用来判断行的列
nextEmptyRow = targetSht.Cells(targetSht.Rows.Count, "A").End(xlUp).Row + 1

' 以下按你实际的字段对应关系填写，示例为常见字段匹配，可自行增删
' 模型列写入Machining，"A"对应模型列的列号，可修改
targetSht.Cells(nextEmptyRow, "A") = "Machining"
' 任务描述列同步表单的D3值，"B"对应任务描述列的列号，可修改
targetSht.Cells(nextEmptyRow, "B") = InstalDesc
' 负责人列同步表单的G2值，"C"对应负责人列的列号，可修改
targetSht.Cells(nextEmptyRow, "C") = AssignedTo

注意事项 #

如果你原本的逻辑是把Model范围直接批量粘贴到目标表，也可以在定义Model范围的时候直接拼接Machining内容，但是上述后置追加行的方式对原有逻辑侵入性最小，不会影响你现有已经跑通的功能。

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