开发Excel宏：基于Input_Data尺寸调整Output_Data表格大小

嘿，我来帮你把这个自动调整表格大小的Excel宏补全并梳理清楚！你要实现的核心需求是让DI工作表里的Output_Data表格，自动匹配Data工作表中Input_Data表格的尺寸对吧？先看看你给出的代码里的小问题，再一步步完善：

Public Sub resize()
    Dim inputTable As ListObject
    Dim outputTable As ListObject
    Dim inputRowCount As Long
    Dim outputCurrentRowCount As Long
    Dim rowsToAddOrRemove As Long
    
    ' 引用输入和输出表格（修正了你代码里的拼写错误：ouputTable → outputTable）
    Set inputTable = Sheets("Data").ListObjects("Input_Data")
    Set outputTable = Sheets("DI").ListObjects("Output_Data")
    
    ' 获取输入表格的总行数（包含表头行）
    inputRowCount = inputTable.Range.Rows.Count
    ' 获取输出表格当前的总行数
    outputCurrentRowCount = outputTable.Range.Rows.Count
    
    ' 计算需要添加或删除的行数差值
    rowsToAddOrRemove = inputRowCount - outputCurrentRowCount
    
    ' 根据差值调整输出表格的行数
    If rowsToAddOrRemove > 0 Then
        ' 需要添加行：一次性插入对应数量的空行到表格末尾
        outputTable.ListRows.Add Count:=rowsToAddOrRemove
    ElseIf rowsToAddOrRemove < 0 Then
        ' 需要删除行：从表格末尾开始，循环删除对应数量的行
        For i = 1 To Abs(rowsToAddOrRemove)
            outputTable.ListRows(outputTable.ListRows.Count).Delete
        Next i
    End If
    
    ' 可选：如果需要同步列数，解开下面的注释（注意调整列数会影响现有数据，需谨慎）
    ' Dim inputColCount As Long
    ' Dim outputColCount As Long
    ' inputColCount = inputTable.Range.Columns.Count
    ' outputColCount = outputTable.Range.Columns.Count
    ' If inputColCount <> outputColCount Then
    '     outputTable.Resize outputTable.Range.Resize(, inputColCount)
    ' End If
End Sub

关键细节说明 #

• 修正了变量名拼写错误：你原来写的ouputTable少了一个t，改成outputTable才能正确引用输出表格，避免编译报错。
• 高效调整行数：添加行时用ListRows.Add Count:=xxx一次性插入多行，比循环插入单行道效率高很多；删除行时从表格末尾开始删，避免索引混乱。
• 可选列同步：如果你的Input_Data表格列数也会变化，可以解开注释里的列同步代码，但调整列数会直接修改表格结构，建议先确认业务需求（比如是否要保留原有列的数据）。

额外建议 #

• 为了避免误删数据，你可以在删除行前加一个确认提示：

If rowsToAddOrRemove < 0 Then
    If MsgBox("即将删除" & Abs(rowsToAddOrRemove) & "行数据，是否继续？", vbYesNo, "确认操作") = vbYes Then
        For i = 1 To Abs(rowsToAddOrRemove)
            outputTable.ListRows(outputTable.ListRows.Count).Delete
        Next i
    End If
End If

• 确保Data、DI工作表以及Input_Data、Output_Data表格确实存在，否则宏会抛出“对象不存在”的错误。

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