我必须在调整列宽和换行文本后自动调整行的高度。
我写了以下代码:
Sub mycode()
Sheet1.Columns("A:A").ColumnWidth = 30
Sheet1.Columns("A:A").WrapText = True
Sheet1.Cells.EntireRow.AutoFit
End Sub当单元格的数据内容较少时,代码可以正常工作。但是当单元格数据很大时,所有数据都不能正确显示。单元格丢失了一些数据。请帮帮我。提前谢谢。

https://stackoverflow.com/questions/36394580
复制相似问题