Excel VBA 行の高さを操作｜見た目を調整してデータ可読性を向上する方法

以下のシーンで利用します。

1.特定の行の高さを変更（例: タイトル行を目立たせる）

2.選択範囲の行を自動で最適な高さに調整（例: テキストの折り返しに対応）

3.データがない行を高さゼロ（非表示）にする（例: 空白行を省略）

4.シート全体の行の高さを統一する（例: 見た目を整える）

Option Explicit

Sub SetRowHeight() '標準モジュール
    Rows(1).RowHeight = 30
End Sub

選択した行の高さを20に変更する

Option Explicit

Sub SetRowHeight() '標準モジュール
    Rows(1).RowHeight = 30
End Sub

選択した行の高さを20に変更する

Option Explicit

Sub SetSelectedRowHeight() '標準モジュール
    If Not TypeOf Selection Is Range Then
        MsgBox "セルを選択してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Selection.EntireRow.RowHeight = 20
End Sub

すべての行の高さを15に統一する

Option Explicit

Sub SetAllRowsHeight() '標準モジュール
    Cells.RowHeight = 15
End Sub

5行目の高さを内容に合わせて自動調整

Option Explicit

Sub AutoFitRow() '標準モジュール
    Rows(5).AutoFit
End Sub

選択範囲の行の高さをオートフィット

Option Explicit

Sub AutoFitSelectedRows() '標準モジュール
    If Not TypeOf Selection Is Range Then
        MsgBox "セルを選択してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Selection.EntireRow.AutoFit
End Sub

Option Explicit

Sub CopyAllRows() '標準モジュール
    Sheets("Sheet1").UsedRange.Copy Destination:=Sheets("Sheet2").Cells(1, 1)
End Sub

A列が空白の行を非表示にする

Option Explicit

Sub HideEmptyRows() '標準モジュール
    Dim ws As Worksheet
    Dim i As Long, lastRow As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        If ws.Cells(i, 1).Value = "" Then
            ws.Rows(i).RowHeight = 0
        End If
    Next i
End Sub

非表示の行を元に戻す

Option Explicit

Sub UnhideAllRows() '標準モジュール
    Cells.EntireRow.RowHeight = 15
End Sub

Excel  VBA エキスパート資格について知りたい方は、下記「Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート」をご確認ください。

ExcelVBA

Excel VBAスキルアップを目指すなら知っておきたいVBAエキスパート

Excel VBA マクロの作成において、VBAエキスパート資格は高い評価を受ける資格の一つです。基礎から学びたい人や、スキルアップを目指すを目指す人に向けた、Excel  VBA エキスパート資格について解説します。...