セルに合わせて列幅/高さを自動調整する【AutoFitメソッド】【ExcelVBA】

構文

Object.AutoFit

セルに合わせて列幅/高さを自動調整するAutoFitのサンプルコード

Public Sub sample()

    '■サンプルデータ
    Range("A1") = "ああああああああああああああああ"
    Range("B2") = "ああああ" & vbLf &"あああ" & vbLf & "あああ" & vbLf & "あああ" & vbLf & "あああ"
    
    '■1行目を自動調整
    Rows(1).AutoFit
    '■2列目を自動調整
    Columns("B").AutoFit

    '■複数行/複数列を自動調整
    Rows("1:5").AutoFit
    Columns("A:C").AutoFit
    
    '■Rangeで記載する場合
    Range("A:E").EntireRow.AutoFit
    Range("A:E").EntireColumn.AutoFit
    
    '■セル全体を自動調整する場合
    Cells.EntireRow.AutoFit
    Cells.EntireColumn.AutoFit
    
End Sub

注意点

• 今回はシート名などは明示していませんのでActiveSheetを設定します。
• 別のシートや別のブックのセル範囲を取得する場合は、Worksheetsを事前に指定しましょう。
• EntireColumn / EntireRow は対象セルを含む行全体/列全体を参照するプロパティです。

関連記事

• 全シート「列幅」「高さ」の自動設定処理をパーツ化する【ExcelVBA】
• ユーザーが指定した列の削除を行う【ExcelVBA】
• テンプレートシートの行幅をコピーする【ExcelVBA】