无法自动更新rowhight的单元格

Question

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

我写了以下代码：

Sub mycode()

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

End Sub

当单元格数据含量较少时，代码工作正常。  但是当单元格数据很大时，所有数据都没有正确显示。 cell错过了一些数据。 请帮我。提前谢谢。

Answer 1

在您提出问题之前，此问题已在超级用户网站（here）上显示。 我的建议是首先尝试从该帖子中选择的答案。我希望它有所帮助。

  

用户NickCarrington＆＃39; Answer：

     

我刚刚发现的一种方法（稍微扩展了上一篇文章）：

     

  
• 选择整张纸。
  
• 将列调整得稍宽一些（因为   选择整张纸，所有栏都会变得更宽）
  
• 双击行分隔符 - 行高将自动拟合
  
• 双击列分隔符 - 列宽将自动拟合
  

     

瞧！