导语：
在使用ECCEL整理数据时，常常需要调整表格的格式，达到重点突出美观的效果。但是遇到工作比较多的时候，常常是手忙脚乱的来回点击鼠标。今天从最基础的来引导大家用EXCEL VBA 实现表格格式的自动化操作。
先看下最终效果：
首先，编写自己第一个EXCEL VBA宏代码。
Private Sub CommandButton1_Click()
MsgBox \”我的第一个VBA程序\”
End Sub
方法：在EXCEL >开发工具>选择按钮>插入一个按钮，双击，写入MsgBox \”我的第一个VBA程序\”。然后点击开发工具>退出设计。点击按钮即可看到效果。
效果就是弹出一个窗口，窗口显示\”我的第一个VBA程序\”。完成这步，就可以迈向大神之路了（偷笑）。
录制宏代码：我们什么还不会写，不过没关系。EXCEL自带的宏录制，可以帮我们扫清障碍。
方法：开发工具>录制宏> 然后选择需要录制的功能，比如字体加粗什么的，然后>开发工具>停止录制>VB编辑器。即可看到我们录制的代码。刚刚开始的时候，录制完之后，我们我已仔细研究下录制的代码的意思，这对我们快速的掌握VBA很用帮助。
Sub AAA()
Selection.Font.Name = \”华文中宋\” ‘设置字体
Selection.Font.Size = 22 ‘设置字体大小
Selection.Font.Bold = True ‘设置字体加粗
Selection.HorizontalAlignment = xlHAlignCenter ‘水平居中
Selection.VerticalAlignment = xlVAlignCenter ‘垂直居中
With Selection.Interior ‘设置背景颜色
.Pattern = xlPatternSolid
.Color = 15773696
.TintAndShade = 0
End With
End Sub
常用的有修改字体、字体大小、字体颜色、字体加粗、背景颜色、水平居中、垂直居中，边框熟悉等，自己想用哪个都可以录制出来。然后借助百度，将每句代码搞明白，就进入VBA学习的下一阶段了（大坑）。
大家可以仔细看一下录制时，代码区是怎么录制的，如下图：
对录制的代码进行修改。
我们录制出来了操作代码，但是定位代码还没有。需要进行简单的分析，定位到我们要修改的单元格，然后选中（Select）,然后插入我们录制的操作代码就可以了。
1、分析所要修改的单元格的特征。比如我们要设置表头，第一列名称都是“实验序号”。我们这里可以加一个判断IF。如果单元格内容为“实验序号”，则选中当前的该表头。
If Cells(i, 1) = \”实验序号\” Then
Range(Cells(i,1),cells(i,10)).Select
End If
2、用IF判断语句我们只能定位第一个表头，我们需要添加循环语句，定位多个表头。我们可以看到最后一个表在72行，我们可以设置一个for循环来定位多个表头。
For i = 1 To 72
If Cells(i, 1) = \”实验序号\” Then
Range(Cells(i, 1), Cells(i, 9)).Select
End If
Next
End Sub
将定位代码和操作代码组合起来。放到刚才的按钮代码中，即完成了我们的自动设置格式的代码。
Private Sub CommandButton1_Click()
For i = 1 To 72
If Cells(i, 1) = \”实验序号\” Then
Range(Cells(i, 1), Cells(i, 9)).Select
Selection.Font.Name = \”华文中宋\” ‘设置字体
Selection.Font.Size = 22 ‘设置字体大小
Selection.Font.Bold = True ‘设置字体加粗
Selection.HorizontalAlignment = xlHAlignCenter ‘水平居中
Selection.VerticalAlignment = xlVAlignCenter ‘垂直居中
With Selection.Interior ‘设置背景颜色
.Pattern = xlPatternSolid
.Color = 15773696
.TintAndShade = 0
End With
End If
Next
End Sub
代码优化，录制的代码有事比较臃肿（比较胖），需要给她减减肥（坏笑）。
减肥前：
减肥后：
恩恩，明显瘦高了一些，主要是省去了Select操作，这样能提高运行速度，用with替换了Selection对象的编写。
最后，用同样的方法，完成其他部分的格式的设置。
最终效果图如下：
结语。本部分有可能需要了解VBA循环语句、判断语句、EXCEL操作对象的部分知识，见本头条号的
