Excel VBA问题：ListObject数据无法写入指定工作表区域

嘿，我来帮你排查下这个VBA代码的问题，我之前处理ListObject数据复制的时候也踩过类似的坑：

核心问题1：未明确指定值属性导致赋值失败 #

你直接把loFixedLegData.DataBodyRange这个Range对象赋值给目标区域，虽然语法上没问题，但VBA有时候会因为对象引用的优先级问题，没有正确把单元格的值传递过去。ListObject的DataBodyRange是一个Range对象，直接赋值可能只是传递了对象的引用，而非实际的单元格数据，这就会出现你看到的“区域被定位但没有数据”的情况。

核心问题2：源与目标区域大小不匹配 #

你手动把目标区域Resize成了109行247列，但如果loFixedLegData.DataBodyRange的实际行/列数和这个不匹配，VBA会静默失败——不会弹出错误，但也不会写入任何数据。比如如果你的固定腿数据只有50行，那强行Resize成109行的话，赋值操作就会因为区域大小不兼容而失效。

修复后的代码 #

我调整了代码，解决了这两个问题，同时优化了可靠性和效率：

Sub AppendFixedLegData(FloatingLegRows As Long)
    Dim loFixedLegData As ListObject
    Dim targetRange As Range
    Dim sourceData As Variant
    
    Set loFixedLegData = Sheets("D. Fixed Leg").ListObjects("d_Fixed_Leg_Data")
    
    ' 先检查表是否有数据，避免空表报错
    If loFixedLegData.DataBodyRange Is Nothing Then
        MsgBox "固定腿数据表中无有效数据，请先填充！"
        Exit Sub
    End If
    
    ' 将源数据存入数组，这种方式赋值更高效且不易出问题
    sourceData = loFixedLegData.DataBodyRange.Value
    
    ' 定位目标区域，用源数据的实际大小自动调整目标区域尺寸
    Set targetRange = ThisWorkbook.Sheets("D. PA Data").Range("d_PA_Data").Offset(FloatingLegRows, 0)
    Set targetRange = targetRange.Resize(UBound(sourceData, 1), UBound(sourceData, 2))
    
    ' 将数组内容写入目标区域
    targetRange.Value = sourceData
    
    ' 调试代码修正：原写法Range(i,4)会越界，改成Range(,4)取当前行第4列
    Dim i As Integer
    For i = 1 To loFixedLegData.ListRows.Count
        Debug.Print loFixedLegData.ListRows(i).Range(, 4).Value
    Next i
End Sub

额外提醒 #

• 原代码里的loFixedLegData.ListRows(i).Range(i, 4)有隐患：ListRows(i).Range已经是当前行的单元格范围，用Range(i,4)会试图取第i行第4列，当i>1时就会超出当前行的范围，大概率会触发越界错误，我改成了Range(,4)来正确获取当前行的第4列数据。
• 用数组中转的方式复制数据，不仅能解决当前的赋值问题，还比直接Range-to-Range赋值快得多，尤其是数据量较大的时候。
• 新增的空表检查可以避免当固定腿数据表为空时，代码运行报错。

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