尝试在工作表中间调整表格大小。

Question

我正在尝试调整位于工作表中间的表格。代码片段 - 您看到的大多数整数实际上都是变量，但是有大量额外代码是没有意义的。

Sub StackOverFlowTest()
    destSheet = Thisworkbook.Sheets("Test")
    Set DestTb = destSheet.ListObjects("CTROutputTable")
    DestTb.Resize DestTb.Range.Resize(100+1,5)
End Sub

我有一个表，DestTb，有N行和5列。我希望它变成100行+标题列。它位于我工作表中的未知（读取：动态）位置。直接将数据移入其中不会自动扩展表，因此我需要先调整表的大小。

如何轻松调整表格中的行数？

到目前为止完整的代码，如果您真的感兴趣：

https://gist.github.com/OlivierHJ/5b039a8c5da05d137f5c8d00f6108309