我先求得单元格内容的行数（Ctrl+回车的换行方式），然后乘以13.5，得到行高。
但是如果在换行前的内容比单元格宽度要长，那么就会在换行符前就换行一次，这样还是不能显示单元格所有内容。例如以下截图，其实第二列下面还有一行，因为第一行内容已经超过列宽了，所以第一行自动换行了，但我分号后真正的第二行就显示不出来了……
求助ing………………
Selection.WrapText = True 将选择区域设置为自动换行
Selection.autofit 将选择区域设置为设置自动行高
selection可以改为rows(XX),xx为要改行高的哪行!
或者改成指定单元格,比如Range("A1")
Selection.autofit 将选择区域设置为设置自动行高
selection可以改为rows(XX),xx为要改行高的哪行!
或者改成指定单元格,比如Range("A1")
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-07-04
Worksheets(1).Rows("1:2").AutoFit 自动行高
