怎么根据文字自动设置行高

雪★山★飞★狐

一份表格，根据文字自动设置行高，但最少的行高为24磅，这个VBA请高手设置下

shiruiqiang

新手路过

perfect131

这个就是
https://club.excelhome.net/thread-1661066-1-1.html?_dsign=953d5959

约定的童话

Sub AutoSetRowHeight()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim maxHeight As Double
    Dim minHeight As Double
   
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
   
    ' 设置要调整行高的范围
    Set rng = ws.Range("A1:A15") ' 修改为你的范围
   
    ' 设置最大行高
    maxHeight = 0
   
    ' 计算最大行高
    For Each cell In rng
        cell.EntireRow.AutoFit
        If cell.EntireRow.RowHeight > maxHeight Then
            maxHeight = cell.EntireRow.RowHeight
        End If
    Next cell
   
    ' 设置最小行高为24磅
    minHeight = 24
   
    ' 调整行高
    For Each cell In rng
        cell.EntireRow.RowHeight = Application.Max(maxHeight, minHeight)
    Next cell
   
    ' 清除对象引用
    Set rng = Nothing
    Set ws = Nothing
End Sub