合并单元格的行高自动调整

johnsen751

已于 2022-06-18 16:03:02 修改

阅读量2.1k

点赞数 1

分类专栏： OFFICE办公文章标签：插件

于 2022-06-18 15:07:35 首次发布

本文链接：https://blog.csdn.net/johnsen751/article/details/125347092

版权

OFFICE办公专栏收录该内容

3 篇文章 0 订阅

订阅专栏

合并单元格的行高自动调整

一、思路

二、单行代码


Function adjustMergeRowheight(r, firstc, endc)
    Rows(r).Select
    Rows(r).AutoFit
    RowHeight = Rows(r).Height
    For Each rng In Range(Cells(r, firstc), Cells(r, endc)).Cells
        rng.Select
        If rng.MergeCells Then
            rng.WrapText = True
            colindex = rng.Column
            If colindex = rng.MergeArea.Column Then
                oriwidth = Columns(colindex).ColumnWidth
                colwidth = 0
                maxc = colindex + rng.MergeArea.Columns.Count - 1
                For i = colindex To maxc
                    colwidth = colwidth + Columns(i).ColumnWidth
                Next
                rng.UnMerge
                Columns(colindex).ColumnWidth = colwidth
                Rows(r).AutoFit
                If Rows(r).Height > RowHeight Then
                    RowHeight = Rows(r).Height
                End If
                Columns(colindex).ColumnWidth = oriwidth
                With Range(Cells(r, colindex), Cells(r, maxc))
                    .WrapText = True
                    .Merge
                    .Borders.LineStyle = xlContinuous
                    .HorizontalAlignment = xlHAlignLeft
                End With

            End If
        End If
    Next
    Rows(r).RowHeight = RowHeight * 1.25
End Function