Excel不会自动调整45º文本

Question

当我将列标题定位在45º时，我必须手动调整每列的大小，因为自动调整不会让定向文本与相邻单元格重叠。

有没有办法以编程方式（使用VBA）自动调整它们重叠的列？我想要一个考虑字体大小的解决方案。

Answer 1

您需要做的是自动调整到的单元格范围，不包括标题行：

Sub autofitToRange()
    Range("B2:F5").Columns.AutoFit
End Sub

而不是：

Sub autofitFullColumns()
    Range("B:F").Columns.AutoFit
End Sub

Answer 2

当具有方向文本的单元格设置了边框时，AutoFit仅适用于非0º方向文本。奇...

Answer 3

SheetName.Range("a:c").Columns.EntireColumn.AutoFit

将在工作表SheetName中自动调整列a - c。这是你在找什么？