如何用VBA判断一个单元格里面的行数

星海悦丹

设计了一个表格，其中“报告”工作表里面的A63-G83单元格里面的内容不固定，有些会超出单元格，需要换行后调整行高，不换行的不需要调整行高，求大神们帮帮忙。上附件

longwin

没看明白，设置为自动换行，自适应行高 不行吗？

星海悦丹

longwin 发表于 2024-9-8 12:08
没看明白，设置为自动换行，自适应行高 不行吗？

页面需要打印，设置自动调整行高的话一则页面占不满，二则行高太低的话也不好看

aodo

Sub RowHeight()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim originalRowHeight As Double
    Application.ScreenUpdating = False
    Set ws = Sheet1
    Set rng = ws.Range("A63:G83")
    For Each cell In rng
        If cell.WrapText = True Then
            originalRowHeight = cell.Rows.RowHeight
            cell.Rows.AutoFit
            If cell.Rows.RowHeight < originalRowHeight Then
                cell.Rows.RowHeight = originalRowHeight
            End If
        End If
    Next cell
    Application.ScreenUpdating = True
End Sub
自己试试