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

我写一个单元格的值：

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没有打开，自动调整将调整到列中最长的单元格宽度。 如果没有find更大的宽度，它将不会改变它。 你的额外testing是多余的。