如何自动扩展excel表格以填充动态数组的大小

Posted 2023-03-27

【中文标题】如何自动扩展excel表格以填充动态数组的大小

【英文标题】：how to expand an excel table automatically to fill the size of a dynamic array

【发布时间】：2022-01-12 14:19:15

【问题描述】：

我正在提出请假请求，Witch 将记录一些员工的请假。我制作了一个仪表板，以一种简单且概括的方式显示插入的叶子，如下所示。

我想要的是自动扩展表格以适应动态数组函数的大小。

【参考方案1】：

执行以下操作：

Dim mySheetName As Worksheet
Dim myTableName As String
Dim myTable As ListObject
Dim myEnd As Integer
myTableName = "Table1"
Set mySheetName = Sheets("Sheet1")
Set myTable = mySheetName.ListObjects(myTableName)

myEnd = mySheetName.Range("A" & mySheetName.Rows.count).End(xlUp).Row

'Resize the table:
myTable.Resize Range("C9:AK" & myEnd)

【讨论】：

谢谢 Toni，我认为这段代码 sn-p 只有在动态数组大小大于表大小时才有效。我想找到一种方法来获取溢出数组的长度并相应地更改表的大小。