使用表头名称设置列宽

Question

这是部分代码。想知道是否有一种方法可以使用表头名称来设置其列宽。最后一条语句是设置宽度的地方。

---

Worksheets("PDX Master List").ListObjects.Add(SourceType:=xlSrcRange, _
Source:=tableRange, _
xlListObjectHasHeaders:=xlYes _
).Name = tableName
Dim t As Object
Set t = Worksheets("PDX Master List").ListObjects(tableName)
t.range.WrapText = True
t.range.EntireColumn.ColumnWidth = 15
' could use the table header name to set column width?
t.ListColumns("Description").Width = 30

Answer 1

一点实验表明这是

Sub x()
ActiveSheet.ListObjects(1).ListColumns("Heading 1").Range.ColumnWidth = 30
End Sub