EXCEL vba修改单元格内内容超过单元格宽度的高度为当前高度的两倍

以下是一个 VBA 代码示例，可以将单元格内超过单元格宽度的内容的高度增加为当前高度的两倍。

Sub DoubleHeight()
    Dim c As Range
    For Each c In Selection.Cells
        If c.MergeCells = True Then
            If c.MergeArea.WrapText = True Then
                c.MergeArea.Rows.AutoFit
                If c.MergeArea.Rows.Height < c.RowHeight * 2 Then
                    c.MergeArea.Rows.Height = c.RowHeight * 2
                End If
            End If
        Else
            If c.WrapText = True Then
                c.Rows.AutoFit
                If c.Rows.Height < c.RowHeight * 2 Then
                    c.Rows.Height = c.RowHeight * 2
                End If
            End If
        End If
    Next c
End Sub

要使用此代码，请选择要处理的单元格，然后运行“DoubleHeight”宏。此代码将首先检查每个单元格是否已合并。如果是，则检查合并区域是否设置了自动换行。如果是，则自动调整行高以适应内容，并将行高增加到当前行高的两倍，但仅在当前行高小于两倍时才这样做。如果单元格没有合并，则直接检查单元格的自动换行设置并执行相同的操作。