如何在Excel中新增主表行时同步添加带格式公式的工时表行？

针对你需要主表新增行时，在各工时表、成本表相同位置同步加行且保留已有数据和公式的需求，PowerQuery确实不适用（它刷新会覆盖手动数据，也无法保留工作表本地公式），这里给你两个更靠谱的方案：

方案一：VBA宏（精准同步行位置，完全保留数据） #

这是最直接可控的方式，通过主表的行插入事件触发同步操作：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 在左侧工程窗口找到你的主表（比如命名为「主表」），双击打开其代码窗口
3. 粘贴以下代码，注意替换表名和需要保留公式的列：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wsMain As Worksheet
    Dim ws As Worksheet
    Dim newRow As Long
    
    Set wsMain = ThisWorkbook.Sheets("主表") ' 替换为你的主表实际名称
    ' 仅处理主表的单行插入操作（批量插入可按需修改）
    If Target.Parent.Name <> wsMain.Name Or Target.Rows.Count > 1 Then Exit Sub
    
    newRow = Target.Row
    ' 遍历需要同步的工时表和成本表
    For Each ws In ThisWorkbook.Sheets
        Select Case ws.Name
            Case "周一", "周二", "周三", "周四", "周五", "成本表" ' 替换为你的表名
                ' 在对应位置插入行，继承上方单元格的格式和公式
                ws.Rows(newRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                ' 如果你需要指定列自动复制上方公式，比如工时表B列是计算工时的公式，可加下面一行
                ' ws.Cells(newRow, "B").Formula = ws.Cells(newRow - 1, "B").Formula
        End Select
    Next ws
End Sub

注意事项： #

• 保存文件时选择.xlsm格式（启用宏的工作簿）
• 确保主表和各工时表的员工行位置完全对应（比如主表第3行是员工A，工时表第3行也必须是员工A）
• 若需要支持批量插入行，删除代码里的Or Target.Rows.Count > 1，并添加循环处理每一行的逻辑

方案二：Excel结构化表格+动态关联（适合365/2021版本） #

如果不想用宏，可以把所有表转成结构化表格（Ctrl+T），利用动态数组函数关联主表员工信息：

1. 主表转成表格，确保员工姓名列是唯一标识
2. 工时表转成表格，用XLOOKUP或INDEX/MATCH自动同步主表的员工姓名，比如在工时表A2单元格输入：

=XLOOKUP(ROW()-ROW(Table[#Headers]),主表[序号],主表[员工姓名],"")

（前提是主表有自增序号列）
3. 工时录入列保留手动输入，公式列用结构化引用自动扩展

这种方式不需要手动插入行，表格会自动扩展，但缺点是无法严格保证行位置完全同步，适合对行位置要求不高，只需要员工信息同步的场景。

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