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

Posted 建筑学概论

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA 将Excel工作簿中所有表格进行一键排版相关的知识,希望对你有一定的参考价值。

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

 1 Option Explicit
 2 Option Base 1
 3 
 4 Sub autoSet()
 5     Dim i As Integer
 6     
 7     For i = 1 To Sheets.Count
 8         Sheets(i).Activate      ‘这行代码不能省,再进行表格操作前,需要先激活需要操作的表格
 9         Sheets(i).Cells.Select
10         With Selection.Font
11             .Name = "微软雅黑"    ‘设置字体种类
12             .Size = 11        ‘设置字体大小
13             .Strikethrough = False
14             .Superscript = False
15             .Subscript = False
16             .OutlineFont = False
17             .Shadow = False
18             .Underline = xlUnderlineStyleNone
19             .TintAndShade = 0
20             .ThemeFont = xlThemeFontNone
21         End With
22         With Selection
23             .HorizontalAlignment = xlLeft  ‘设置文本排列,靠左
24             .VerticalAlignment = xlCenter  ‘设置文本排列,垂直居中
25             .Orientation = 0
26             .AddIndent = False
27             .IndentLevel = 0
28             .ShrinkToFit = False
29             .ReadingOrder = xlContext
30             .MergeCells = False
31         End With
32         Sheets(i).Range("A1").Select
33     Next
34 End Sub

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

以上是关于VBA 将Excel工作簿中所有表格进行一键排版的主要内容,如果未能解决你的问题,请参考以下文章

Excel VBA 宏将复制一系列单元格并粘贴到另一个工作簿中

使用 VBA 宏从 Excel 工作簿中取消选择所有复选框

excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决

excel如何用vba批量提取指定工作表?

Excel(VBA)创建工作簿中所有工作表名称的列表

excel中怎么样按某一列的数据自动分成几张表格(要在不同的工作簿中vba)