vba excel AutoFit 单元格高度不起作用答案

【问题标题】：vba excel AutoFit cells height is not workingvba excel AutoFit 单元格高度不起作用
【发布时间】：2021-07-28 17:59:27
【问题描述】：

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

我尝试了这段代码，但到目前为止它不起作用。

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

【问题讨论】：

合并后的单元格是否在工作表上？
你有没有尝试在.EntireRow.AutoFit之前制作.WrapText = True？
Privet Aleksey 我之前刚试过放.WrapText，还是不行

标签： vba height

【解决方案1】：

尝试（测试）：

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

注意。如果您只需要自动调整选定的范围，您可以在Worksheet_SelectionChange 中使用With Target.EntireRow

【讨论】：