Excel VBA~数据表未写入工作表

我有以下子程序：

Sub AppendFixedLegData(FloatingLegRows As Long)

    Dim loFixedLegData As ListObject
    Dim i As Integer

    Set loFixedLegData = Sheets("D. Fixed Leg").ListObjects("d_Fixed_Leg_Data")

    ThisWorkbook.Sheets("D. PA Data").Range("d_PA_Data").Offset(FloatingLegRows, 0).Resize(109, 247) = loFixedLegData.DataBodyRange  

    For i = 1 To loFixedLegData.Range.Rows.Count
        Debug.Print loFixedLegData.ListRows(i).Range(i, 4).Value
    Next i

End Sub

“ThisWorkbook”语句没有粘贴loFixedLegData.DataBodyRange中包含的数据，尽管它确实执行。此外，如果在正在写入数据的工作表中执行Ctrl End，Ctrl End将转到正在写入的部分的结束单元格，以证明语句的某些部分正在执行，但没有粘贴数据

我已经通过它下面的debug.print语句确认了数据确实存在

---

为什么这不起作用？

我发现了这个问题……非常简单。DataBodyRange的末尾应该有一个.Value，也就是说，它应该是DataBodyRange.Value。一旦我把它放进去，就没事了

范围

d\u PA\u Data

可能与

loFixedLegData

的大小不同。检查两个单元格的宽度和高度。（还要澄清的是：你所做的并不是所谓的）