Excel VBA 代码：自动调整表格大小 (L9 到 L16)

Sub AutoSizeTable() '定义变量 Dim tbl As ListObject Dim rng As Range

'选择表格
Set tbl = ActiveSheet.ListObjects('Table1')

'选择表格范围
Set rng = tbl.Range

'自动调整表格大小
With tbl
    .Resize rng.Resize(, .ListColumns.Count + 1)
    .Resize rng.Resize(, .ListColumns.Count + 1)
End With

'自动调整列宽
rng.Columns.AutoFit

End Sub