AutoFit不能与包装文本一起使用

我在小区里有一个Chr（10）

cell.WrapText = False cell.EntireRow.AutoFit ' AutoFit works ' ------------ but: cell.WrapText = True cell.EntireRow.AutoFit ' AutoFit works only if the cell has less then five lines. 

如果我添加一些字符（多一行） – AutoFit不起作用。 文本在第一行和最后一行被切断。
ver – 着名excel 2010

Answer 1

这取决于数据的大小和列的宽度。 原因是一行可以扩展的最大高度是409.5 (546 pixels) 。 如果您手动增加行的高度，您将注意到在特定高度之后，您将无法增加行的高度。 检查是什么高度:)同样是与宽度的概念。 这适用于行和列。 在列的情况下，最大宽度是254.86 (1789 pixels)

我用这个代码进行演示。

 Option Explicit Sub Sample() ActiveCell.WrapText = True ActiveCell.EntireRow.AutoFit MsgBox ActiveCell.RowHeight End Sub 

看这个截图

这工作

这不是

该行已达到最大值。 它不能超越那个。

处理这个问题的最好方法是增加列的宽度。

跟进

它不工作的原因是因为你在该行有多个数据列，而你试图只设置1个单元格的WrapText，因此它不工作。 当你有多个数据列时，你必须使用cell.EntireRow.WrapText = True而不是ActiveCell.WrapText = True