嗨，这个需求我碰到过好多次，给你两种实用方案，看你偏好哪种：

这种方法是直接引用Sheet1的内容，Sheet1插入行后，Sheet2会自动跟上显示新行数据：

• 先确保Sheet2的列数、表头位置和Sheet1完全一致
• 在Sheet2的A1单元格输入公式：=IFERROR(INDEX(Sheet1!$A:$Z,ROW(),COLUMN()),"")
• 选中A1，横向拖动填充柄到和Sheet1相同的列数，再选中整行下拉到足够多的行（比如先拉1000行备用）

优点：不用启用宏，操作简单；局限：Sheet2只是引用内容，不是真正插入行，而且如果Sheet1删除行，Sheet2对应位置会变成空值，合并单元格可能会出现显示问题。

如果想要Sheet2和Sheet1完全同步插入行的动作（包括插入空行、复制格式/内容），用VBA是最靠谱的：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里找到你的工作簿，双击Sheet1（一定要选Sheet1，不是ThisWorkbook）
3. 在右侧的代码窗口粘贴这段代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim insertedRow As Integer
    ' 判断是否是插入整行的操作
    If Target.Rows.Count > 0 And Target.Columns.Count = Me.Columns.Count Then
        insertedRow = Target.Row
        ' 在Sheet2对应位置插入相同数量的行
        Sheet2.Rows(insertedRow).Insert Shift:=xlDown
        ' 可选：复制Sheet1新行的格式到Sheet2（不需要可以删掉这三行）
        Me.Rows(insertedRow).Copy
        Sheet2.Rows(insertedRow).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
        ' 如果需要同步新行的内容，把上面三行换成这一行：
        ' Me.Rows(insertedRow).Copy Sheet2.Rows(insertedRow)
    End If
End Sub

4. 保存工作簿的时候，要选择「Excel 启用宏的工作簿（*.xlsm）」格式，下次打开文件记得启用宏。

小贴士：如果要同步删除行的操作，可以在代码里加判断逻辑，比如检测到Sheet1删除行时，自动删除Sheet2对应行，需要的话可以告诉我，我再给你补代码~

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