vba excel 自动调整单元格高度不起作用

Question

我希望自动调整当前单元格中文本的高度。高度不是宽度。

我试过这段代码，但目前还没有用。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    With Worksheets("Lohnbeurteilung").Cells
        .EntireRow.AutoFit
        .WrapText = True
    End With
    
End Sub

Answer 1

尝试（测试）：

With Worksheets("Lohnbeurteilung").UsedRange.EntireRow
    .WrapText = True
    .AutoFit
End With

注意。如果您只需要自动调整所选范围，则可以在 Worksheet_SelectionChange

中使用 With Target.EntireRow

vba excel 自动调整单元格高度不起作用

vba excel AutoFit cells height is not working

height

vba