如何根据另一工作表的数据行数自动插入对应行数？

1. 精准统计Sheet A的有效数据行数 #

先确定Sheet A中姓名列的有效数据量，假设姓名在SheetA的A列（A1为表头，数据从A2开始，预留空行到A10），用SUMPRODUCT能精准排除空格和空单元格：

=SUMPRODUCT(--(TRIM(SheetA!A2:A10)<>""))

这个公式会返回真正的有效数据行数N，比COUNTA更可靠（避免误统计含空格的单元格）。

2. 用VBA实现自动插入/删除行 #

Excel函数无法直接插入行，必须用VBA宏来完成核心操作：

1. 按Alt + F11打开VBA编辑器，右键工作簿→插入→模块，粘贴以下代码：

Sub AutoSyncRows()
    Dim wsData As Worksheet, wsTarget As Worksheet
    Dim validRows As Long, currentTargetRows As Long
    Dim rowDiff As Long
    
    ' 指定工作表，根据实际名称修改
    Set wsData = ThisWorkbook.Worksheets("SheetA")
    Set wsTarget = ThisWorkbook.Worksheets("SheetB")
    
    ' 统计有效数据行数（A2到A10是预留范围）
    validRows = Application.WorksheetFunction.SumProduct(--(Trim(wsData.Range("A2:A10")) <> ""))
    
    ' 获取Sheet B现有数据行数（A1为表头，从A2开始算数据行）
    currentTargetRows = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row - 1
    
    ' 计算需要调整的行数差
    rowDiff = validRows - currentTargetRows
    
    ' 执行行的插入或删除
    With wsTarget
        If rowDiff > 0 Then
            ' 插入缺失的行，从第2行下方开始
            .Rows(2 & ":" & 2 + rowDiff - 1).Insert Shift:=xlDown
        ElseIf rowDiff < 0 Then
            ' 删除多余的行
            .Rows(2 & ":" & 2 - rowDiff - 1).Delete Shift:=xlUp
        End If
    End With
    
    ' 自动填充VLOOKUP公式（可选，根据你的需求调整列和参数）
    If validRows > 0 Then
        wsTarget.Range("B2:B" & 1 + validRows).Formula = "=VLOOKUP(A2, SheetA!A:B, 2, FALSE)"
    End If
End Sub

2. 如果需要自动触发（当Sheet A的姓名列数据变化时自动同步行），右键SheetA标签→查看代码，粘贴以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当A列数据变化时执行同步
    If Not Intersect(Target, Me.Range("A2:A10")) Is Nothing Then
        AutoSyncRows
    End If
End Sub

3. VLOOKUP填充数据的细节 #

如果手动填充，在Sheet B的B2单元格输入公式后下拉：

=VLOOKUP(A2, SheetA!A:B, 2, FALSE)

• 注意第三个参数2是你要从Sheet A提取的列号，根据实际数据列调整；
• 如果Sheet B的A列需要自动生成Sheet A的姓名列表，可以把VBA里的自动填充部分改成生成姓名：

' 自动生成姓名列表
wsTarget.Range("A2:A" & 1 + validRows).FormulaArray = "=INDEX(SheetA!A:A, SMALL(IF(TRIM(SheetA!A2:A10)<>"""", ROW(SheetA!A2:A10)), ROW(A1:A" & validRows & ")))"
wsTarget.Range("A2:A" & 1 + validRows).Value = wsTarget.Range("A2:A" & 1 + validRows).Value ' 转为值

注意事项 #

• 保存文件时选择.xlsm格式，否则宏会丢失；
• 调整代码中的工作表名称和单元格范围，匹配你的实际表格结构；
• 启用宏时，在Excel选项中允许启用所有宏（或添加信任位置）。

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