无法自动设置单元格的行高

调整列宽和包装文字后，必须自动调整行的高度。

我写了下面的代码：

Sub mycode() Sheet1.Columns("A:A").ColumnWidth = 30 Sheet1.Columns("A:A").WrapText = True Sheet1.Cells.EntireRow.AutoFit End Sub 

当单元格的数据内容较less时，代码工作正常。 但是当单元数据很大时，所有的数据都不能正确显示。 细胞遗漏了一些数据。 请帮帮我。 提前致谢。

Answer 1

这个问题已经出现在你的问题之前的超级用户网站（ 这里 ）。 我的build议是首先尝试从该post中select的答案。 我希望它有帮助。

用户NickCarrington的答案 ：

我刚刚发现的一个方法（扩展了以前的文章）：

• select整个表格。
• 调整一个较宽的列的大小（因为整个表被选中，所有的列将变宽）
• 双击行分隔符 – 行高将自动assembly
• 双击列分隔符 – 列宽将自动assembly

瞧！