VBA 将Excel工作簿中所有表格进行一键排版

自己管理的Excel工作簿经过多人的修改，其中的很多格式会经常出现不一致的情况，这里提供VBA代码，用来实现表格数据格式一键排版，免除手动频繁调整Excel数据格式。

Option Explicit
Option Base 1

Sub autoSet()
    Dim i As Integer
    
    For i = 1 To Sheets.Count
        Sheets(i).Activate　　　　　　'这行代码不能省，再进行表格操作前，需要先激活需要操作的表格
        Sheets(i).Cells.Select
        With Selection.Font
            .Name = "微软雅黑"　　　　'设置字体种类
            .Size = 11　　　　　　　　'设置字体大小
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .Underline = xlUnderlineStyleNone
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        With Selection
            .HorizontalAlignment = xlLeft　　'设置文本排列，靠左
            .VerticalAlignment = xlCenter　　'设置文本排列，垂直居中
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
        Sheets(i).Range("A1").Select
    Next
End Sub

需要设置其他方面的格式，直接在for循环内添加相应代码即可实现，可以先录制宏来查看设置的代码，再进行添加