如果需要变宽以适应新条目，请将新条目写入单元格和自动调整列宽度？

Question

我在一个单元格中写了一个值：

Range("A1").Value = 13/3/2015

如果列宽足以容纳该条目，我不希望它更改。如果它不够宽，我希望它能自动调整。这样做的最佳方式是什么？

以下内容应该有效

Range("A1").Value = 13/3/2015
Width = Range("A1").EntireColumn.ColumnWidth
Range("A1").EntireColumn.Autofit
if Range("A1").EntireColumn.ColumnWidth < Width then Range("A1").EntireColumn.ColumnWidth = Width

但我希望有一种更聪明的方法，不需要我不必要地自动调整列宽。

Answer 1

如果wordwrap未开启，则自动调整将调整为列中最长的单元格宽度。如果找不到更大的宽度，它将不会改变它。你的额外测试是多余的。