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

Question

我有以下子程序：

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语句中。

为什么这不起作用？

Answer 1

我发现了这个问题......极端简单。在DataBodyRange的末尾应该有一个 .Value ，也就是说，它应该是DataBodyRange.Value。一旦我把它放进去，它很好。