Excel: すべての行の高さを「自動調整」に

Excelの行の高さは、いちど手動で調整してしまうとその後自動調整が効かなくなる。そして、少なくともオレが使っているExcel2000では、行の高さを自動調整に戻す方法が見つからない。

現在のシートのすべての行の高さを「自動調整」に戻す

このVBAマクロを登録して "AutoRowHeightAdjust" を実行すると、シート内のすべての行の高さが「自動調整」に戻る。

Function LastRowNum() As Integer
    ActiveCell.SpecialCells(xlLastCell).Select
    endr = ActiveCell.Row
    'endc = ActiveCell.Column
    Range("A1").Select
    LastRowNum = endr
End Function

Sub AutoRowHeightAdjust()
    Rows("1:" & LastRowNum).EntireRow.AutoFit
End Sub