如何使用自动适应特定表格列来换行文本？

Question

以下代码用于自动换行文本并自动调整第二列和第三列。但是，我最后收到运行时错误 424“需要对象”。

Set ws = ActiveSheet
Set tbl = ws.ListObjects(2)

With ws
    tbl.ListColumns(2).Range.WrapText = True
    tbl.ListColumns(2).Range.Rows.AutoFit = True
    tbl.ListColumns(3).Range.WrapText = True
    tbl.ListColumns(3).Range.Rows.AutoFit = True
End With

Answer 1

AutoFit

是一种方法；删除

= True

：

tbl.ListColumns(2).Range.Rows.AutoFit
...
tbl.ListColumns(3).Range.Rows.AutoFit