Sub 書式をまとめて設定()

    Dim ws As Worksheet  'ワークシート
    Dim dataRange As Range '書式設定用の範囲オブジェクト
    
    Dim out_Row As Long: out_Row = 20  '明細出力件数等のカウンター
    
    '現在のシート
    Set ws = ActiveWorkbook.ActiveSheet

    'Rangeの中で2つのCell命令を使って範囲指定
    Set dataRange = ws.Range(ws.Cells(1, 1), ws.Cells(out_Row, 5))

    'データ全体の書式をまとめて設定(個々に設定するよりも高速）
    With dataRange
        .Font.Name = "Meiryo UI"
        .Font.Size = 11
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True

        '罫線を引く（最後に明細を読み込んだ行だけに引くのに便利）
        .Borders.LineStyle = xlContinuous
        .Borders.Color = RGB(0, 0, 0)
    End With


    'グループ表示部分で縦罫線だけ引きたい列の時
    With dataRange
        .Font.Name = "Meiryo UI"
        .Font.Size = 11
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True

        '範囲の内側に縦線を引く
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Color = RGB(0, 0, 0)
        End With
        
    End With

   '横罫線だけ点線で罫線を引く時（罫線の指定を細かくする時は dataRange ではなく dataRange.Borders にする）

    With dataRange.Borders

        '縦罫線は実線
        .Item(xlInsideVertical).LineStyle = xlContinuous
        .Item(xlEdgeLeft).LineStyle = xlContinuous
        .Item(xlEdgeRight).LineStyle = xlContinuous

        '横罫線は点線
        .Item(xlInsideHorizontal).LineStyle = xlDot
        .Item(xlEdgeTop).LineStyle = xlDot
        .Item(xlEdgeBottom).LineStyle = xlDot
        .Weight = xlThin
        .Color = RGB(0, 0, 0)
    End With

End Sub