Excel VBA: range.autofit, а не «autofitting»

Question

У меня есть следующий код в Excel:

Sub autosort()
Dim lastrow As Long
lastrow = Cells(rows.Count, 17).End(xlUp).Row
Range("A3:Q" & lastrow).Sort key1:=Range("Q3:Q" & lastrow), _
   order1:=xlDescending, Header:=xlNo
Call autoborder(Range("A3:Q" & lastrow))
Range("A2:Q" & lastrow).EntireRow.AutoFit
End Sub

Все работает, чтобы граничить с ячейками, но я не могу заставить лист автоматически подгонять высоту строки через последнюю строку ... он запускается, но когда я go возвращаюсь, чтобы посмотреть на результат, высота строки не определяется автоматически.

Любые советы будут с благодарностью, спасибо.

Answer 1

Вы можете попробовать:

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")

        .Cells.EntireColumn.AutoFit
        .Cells.EntireRow.AutoFit

    End With

End Sub