word vba设置表格格式

在功能区右击，点击自定义功能区对话框，勾选开发工具，确定。

请点击输入图片描述

任意打开一个待处理的文档，把光标定位至表格开头处（其他地方也行，但一定要记住是哪一处）

请点击输入图片描述

假设我们要达到的效果如下图如示。点击开发工具选项卡，点击宏，录制宏。宏名可以修改，只要便于自己记忆，确定。

请点击输入图片描述

请点击输入图片描述

接下来就要开始录制宏了，这里宏会记录你做的每一个步骤，包括正确的和错误的步骤，所以最好一气呵成。在录制时鼠标是无法选中内容的，所以选中这一步需要用到键盘。

首先全选表格。在表格开关处，按住shift，同时按→或↓或End键直至选中全部表格。

请点击输入图片描述

接下来就可以用鼠标修改格式了，在表格工具的设计、布局选项卡中将表格调整至你心怡的格式。

请点击输入图片描述

调整结束后，点击开发工具，宏，停止录制。这样就将宏录制好了。如果有海量类似表格需要设置，可以点击宏，查看宏，运行，这样就立刻将表格格式统一了。

请点击输入图片描述

当然要想达到一键快速复制的效果，我们还需要一步。右击功能区，在d出的菜单中选择自定义功能区。在左侧“从以下位置选择命令”选择宏，在右侧选中某个主选项卡，新建组，此时可以重命名并自定义符号。新建结束后将左侧的宏添加，确定。此时我们就可以看到在选中的主选项卡中出现了自己命名的宏了。将光标定位至新表格开头，点击此宏即可一键复制第一张表格的格式，试试吧。

请点击输入图片描述

请点击输入图片描述

Sub s()

[a1].NumberFormatLocal = "@" '设置A1单元格为文本格式

[b1].NumberFormatLocal = "yyyy/m/d" '设置B1单元格为日期格式

[c1].NumberFormatLocal = "[$-F400]h:mm:ss AM/PM" '设置C1单元格为时间格式

[d1].NumberFormatLocal = "0.00%" '设置D1单元格为百分比格式

[e1].NumberFormatLocal = "0.00E+00" '设置E1单元格为科学记数法格式

[f1].NumberFormatLocal = "G/通用格式" '设置F1单元格为常规格式

End Sub

---