Excel VBA：固定可调整大小表格下方单元格位置的技术问询

针对table_data表格调整行数时，email_ship（A29:D32）区域随表格移动导致排版混乱的问题，结合你提到的思路，提供两种可落地的VBA实现：

方案一：数组存储数据与样式后恢复 #

先把email_ship的内容、格式暂存到数组，等表格行数调整完成后，再把内容写回原固定位置（A29:D32）并恢复样式，彻底锁定位置。

Sub AdjustTableAndFixEmailShip()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim emailRng As Range
    Dim dataArr As Variant
    Dim wrapStatus As Variant
    Dim rowHeights As Variant
    Dim i As Integer
    
    ' 指定工作表和对象
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换成你的工作表名
    Set tbl = ws.ListObjects("table_data")
    Set emailRng = ws.Range("email_ship")
    
    ' 1. 存储数据、换行设置、行高
    dataArr = emailRng.Value ' 存内容
    ReDim wrapStatus(1 To emailRng.Rows.Count)
    ReDim rowHeights(1 To emailRng.Rows.Count)
    
    For i = 1 To emailRng.Rows.Count
        wrapStatus(i) = emailRng.Cells(i, 1).WrapText ' 整行WrapText一致，取第一个单元格即可
        rowHeights(i) = emailRng.Rows(i).RowHeight
    Next i
    
    ' 2. 执行你的表格行数调整代码（替换成现有逻辑）
    ' 示例：调整到10行
    ' Do While tbl.ListRows.Count > 10
    '     tbl.ListRows(tbl.ListRows.Count).Delete
    ' Loop
    ' tbl.ListRows.Add Count:=10 - tbl.ListRows.Count
    
    ' 3. 恢复数据与样式到固定位置
    ws.Range("A29:D32").ClearContents
    ws.Range("A29:D32").Value = dataArr
    
    For i = 1 To emailRng.Rows.Count
        ws.Rows(28 + i).WrapText = wrapStatus(i)
        ws.Rows(28 + i).RowHeight = rowHeights(i)
        ws.Rows(28 + i).AutoFit ' 恢复自动行高
    Next i
End Sub

优缺点：适配所有表格行数调整场景（包括中间插删行），位置锁定精准；但需要额外处理样式存储，代码稍繁琐。

方案二：仅在表格末尾插删行（简易版） #

已知表格最大行数22，不会和email_ship重叠，直接在表格末尾操作行，完全不触动email_ship所在的行，从根源避免位置移动。

Sub AdjustTableRowsWithoutMovingEmailShip()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim targetRows As Integer
    Dim rowDiff As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set tbl = ws.ListObjects("table_data")
    targetRows = 15 ' 替换成你需要的目标行数
    
    rowDiff = targetRows - tbl.ListRows.Count
    
    If rowDiff > 0 Then
        ' 末尾新增行
        tbl.ListRows.Add Count:=rowDiff
    ElseIf rowDiff < 0 Then
        ' 从末尾开始删行
        Do While tbl.ListRows.Count > targetRows
            tbl.ListRows(tbl.ListRows.Count).Delete
        Loop
    End If
    
    ' 确保email_ship样式不变（可选，因为位置没动）
    With ws.Range("email_ship")
        .WrapText = True
        .EntireRow.AutoFit
    End With
End Sub

优缺点：代码极简，无需额外处理样式；但仅适用于只在表格末尾调整行数的场景，中间插删行的话不适用。

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