高分求解：关于 Excel 2003 中行控制的问题

[wodexintailuan]

大家都知道，在 Excel 2003 中，如果设置某个单元格为自动换行时，当该单元格中内容长度超出单元格宽度时，单元格会自动换行并且调整该单元格行高，直至适应该文本内容。
但是，在同一行相邻两个单元格进行合并后，尽管也设置了该合并后的单元格具有自动换行属性，可是如果在该合并后的单元格内输入超出该单元格宽度的文本内容时，Excel照样会自动执行换行，但却不自动调整该单元格的行高，以至于位于回行符之后的文本内容无法浏览，必须手动将该单元格所在行的高度进行调整后方可看到全部内容。
请问，对于这种发生在合并单元格前提下的情况，怎样让Excel能够自动调整行高？

当然，如果有编程高手知道VB/VBA代码控制方法的就更好了。

谢谢！

[wodexintailuan]

没人知道吗？

[DawnPine]

想了很久,没想出好办法
期待高手

[A_TRY]

我试是看能不能做出来
你等会啊

[A_TRY]

不好意思啊
我做了一下，但没做出来
看其他高手吧

[zqsntws]

Public Sub USG_AutofitRowHeightForMergedRange(i_xRange As Range)
Dim MergeWidth As Single
Dim C As Range, AutoFitRng As Range
Dim CWidth As Single, NewRowHt As Single
If i_xRange Is Nothing Then Exit Sub
With i_xRange.Rows(1)
CWidth = .Cells(1).ColumnWidth
For Each C In .Cells
MergeWidth = C.ColumnWidth + MergeWidth
Next
i_xRange.MergeCells = False
If MergeWidth > 255 Then MergeWidth = 255
.Cells(1).ColumnWidth = MergeWidth
.EntireRow.AutoFit
NewRowHt = .RowHeight
.Cells(1).ColumnWidth = CWidth
i_xRange.MergeCells = True
.RowHeight = NewRowHt
End With
End Sub