EXCEL:テーブル整形マクロ

Sub テーブルデータの整形()
    'テーブルデータを張り付けた後に実行
    '前提：セルのフォーマットが文字列

    '格子
    With Selection
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
   
    '幅の調整
    Selection.EntireColumn.AutoFit

    'ヘッダー
    Selection.Resize(1).Select
    With Selection
        .HorizontalAlignment = xlCenter

        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.149998474074526
            .PatternTintAndShade = 0
        End With
    End With

End Sub