Excel VBA : range. 自动调整不是 "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

一切都可以使单元格边框化，但是我无法让工作表通过最后一行自动调整行高……它运行但是当我回去查看结果时，行高不是自动调整的。

任何提示将不胜感激，谢谢。

Answer 1

你可以试试:

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")

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

    End With

End Sub