エクセルの行の高さ最適化するマクロ

• 行の境界線ダブルクリックするやつを自動で
• 対象は全シート、全行
• 除外したいシートを指定できる

module1

Sub rowfix()
    '行の高さ最適化する
    Dim Ws As Worksheet
    Dim x As Long

    For Each Ws In Worksheets
        '除外したいシート（demo1シート）はスキップ
        If Ws.Name = "demo1" Then
            GoTo CONTINUE
        End If
        'Ws.Rows.AutoFit '全行の高さ最適化する

        x = Ws.Rows.Count 'A2以下だけ最適化する
        Ws.Range("A2", "a" & x).EntireRow.AutoFit


CONTINUE: 'シートをスキップしたら飛んでくるラベル
    Next Ws
    MsgBox "終了"
End Sub

        'できない
        'Ws.Range("A2", Cells(Rows.Count, 1)).EntireRow.AutoFit
        'Ws.Range(Cells(2, 1), Cells(3, 1)).EntireRow.AutoFit