Excel合并单元格后自动适应行高（列宽）的问题

[tinyapfel]

Excel合并单元格后不能自动适应行高，自动适应后内容多的合并格会有部分内容显示不出来，kb里居然说要手动调整，我的报表几千行，不是要疯掉了，～！◎＃￥％
哪位VBA高手帮帮忙？格子都是autowrap的，要增大这些合并格的行高使它能显示全部内容，并且平均分配边上其他未合并格子的行高。

[tinyapfel]

没人会吗？

[DawnPine]

俺试过了
确实可以
不知楼主遇到什么情况
详细说一下吧

[xthand]

关注！！！！

[DawnPine]

我刚刚试过
可以解决的
sheet1.Cells.EntireRow.AutoFit

祝楼主好运！

[tinyapfel]

不行的

[tinyapfel]

人气不足，只好自己解决。

Sub Macro2()
Dim a, b, c, rowa, rowb, i
Dim e
e = "J"
'合并格在J列
i = 3
While i < 1000
rowa = 1
If Range(e & i).MergeCells Then
Set a = Range(e & i).MergeArea
Range(e & i).Activate
rowa = a.Rows.Count
'合并的行数

b = Range(e & i).Value
c = InStr(b, Chr(10))
'插了回车强制换行
rowb = 1
While c > 0
rowb = rowb + 1
'算合并格需要的行数
b = Mid(b, c + 1)
c = InStr(b, Chr(10))
Wend
If rowb > rowa Then
'行数太少，加大行高
Range("A" & i & ":" & e & (i + rowa - 1)).RowHeight = rowb * 11.5 / rowa
End If
End If
i = i + rowa
Wend
End Sub

[DawnPine]

这个AutoFit确实有点问题
当合并单元格的高度高于对应的未合并单元格时就不对了
:(