合并单元格根据内容自动调整行高 【请教高手】

huailian1216

将2个单元格合并后，再用自动行高时，就没效果了。
一张表内这样单元格比较多，所以希望用代码实现，不用手动调的
高手试看看的，谢了~~~~

[ 本帖最后由 huailian1216 于 2008-12-18 22:13 编辑 ]

zhaogang1960

请测试:
Sub aaa()
    Dim c As Range, a As Integer
    For Each c In ActiveSheet.UsedRange
        If c.MergeCells Then
            a = UBound(Split(c.Value, Chr(10)))
            If a >= 0 Then Rows(c.Row).RowHeight = 14.25 * (a + 1)
        End If
    Next
End Sub

huailian1216

谢谢强大热心的  zhaogang1960  的回复

这个在单元格里面有软回车可以
但是如果没有用软回车换行的呢？
可以继续帮帮忙么？

huailian1216

附件已经从新上传，下面一个~

zhaogang1960

请测试:
Sub aaa()
    Dim c As Range, a As Integer
    For Each c In ActiveSheet.UsedRange
        If c.MergeCells Then
            a = Application.WorksheetFunction.RoundUp(Len(c.Value) / 25, 0)'25根据实际情况自己调整
            If a > 0 Then Rows(c.Row).RowHeight = 14.25 * a
        End If
    Next
End Sub

huailian1216

这下好了~
谢了哦，zhaogang1960厉害的哦 佩服~~~~·

panjunxin1

不是很好用 因为中文E文长度不一样

qjls

偶在网上搜了半天，只有这里解决了。
zhaogang1960  不是一般的厉害啊，呵呵！

candalixinhua

dajfkad jadfjkad;fad

hessen

很好用