VBA 高手请止步,该如何处理

VBA 高手请止步
VBA 怎么使得单元格的内容的高度与单元格的高度相等

或者就是说怎么使得单元格的高度根据单元格中内容的高度进行自动调整，调整到最适合高度

[解决办法]

VB code

Sub AutoHeight(objRng As Range)' 按指定单元格内容调整行高    Dim i&, t&, lFontSize&    t = Len(objRng.Text)    If (t = 0) Then Exit Sub    For i = 1 To t        t = objRng.Characters(i, 1).Font.Size        If (t > lFontSize) Then lFontSize = t    Next    objRng.RowHeight = lFontSizeEnd SubSub Test()' 测试    AutoHeight Range("A1")    AutoHeight Range("A3")End Sub