自己管理的Excel工作簿经过多人的修改,其中的很多格式会经常出现不一致的情况,这里提供VBA代码,用来实现表格数据格式一键排版,免除手动频繁调整Excel数据格式。
1 Option Explicit 2 Option Base 1 3 4 Sub autoSet() 5Dim i As Integer 67For i = 1 To Sheets.Count 8 Sheets(i).Activate'这行代码不能省,再进行表格操作前,需要先激活需要操作的表格 9 Sheets(i).Cells.Select10 With Selection.Font11 .Name = "微软雅黑"'设置字体种类12 .Size = 11'设置字体大小13 .Strikethrough = False14 .Superscript = False15 .Subscript = False16 .OutlineFont = False17 .Shadow = False18 .Underline = xlUnderlineStyleNone19 .TintAndShade = 020 .ThemeFont = xlThemeFontNone21 End With22 With Selection23 .HorizontalAlignment = xlLeft'设置文本排列,靠左24 .VerticalAlignment = xlCenter'设置文本排列,垂直居中25 .Orientation = 026 .AddIndent = False27 .IndentLevel = 028 .ShrinkToFit = False29 .ReadingOrder = xlContext30 .MergeCells = False31 End With32 Sheets(i).Range("A1").Select33Next34 End Sub
需要设置其他方面的格式,直接在for循环内添加相应代码即可实现,可以先录制宏来查看设置的代码,再进行添加