将Excel文档标题自动更新为页脚，可以利用VBA轻松实现，下面就请跟着小编来实际演示操作一遍吧！工具/原料moreWindows 7 旗舰版Excel 2010方法/步骤1/6分步阅读

打开Excel文档，按Alt+F11，打开VBE编辑器，工程区域右键“插入”-“模块”，插入一个新“模块1”。

2/6

模块代码区域输入如下代码：

Sub 页脚更新()

Dim T As String

T = ActiveSheet.Range(A1).Value 此处取当前页面A1的值，可根据需要更改

With ActiveSheet.PageSetup

.CenterFooter = 楷体,加粗10 T 居中 将A1的值设置为楷体、加粗、10号、居中页脚显示

.LeftFooter = 黑体,加粗14 T 靠左 将A1的值设置为黑体、加粗、14号、靠左页脚显示

.RightFooter = 幼圆,加粗12 T 靠右 将A1的值设置为幼圆、加粗、14号、靠右页脚显示

End With

End Sub

3/6

返回Excel文档界面，“开发工具”选项卡下，单击“插入”-“按钮（窗体控件）”，鼠标左键拖拉出一个按钮控件。

4/6

在按钮控件上右键，单击“指定宏(N)...”。

5/6

选择“页脚更新”宏，单击“确定”完成宏的指定。

6/6

单击按钮控件。单击“视图”选项卡下的“页面布局”，可以看到页脚已经实际更新。

总结1/1

第一步：Alt+F11,，打开VBE编辑器，工程区域右键“插入”-“模块”，插入一个新“模块1”，输入相应代码。

第二步：“开发工具”选项卡下，单击“插入”-“按钮（窗体控件）”，鼠标左键拖拉出一个按钮控件。

第三步：在按钮控件上右键，单击“指定宏(N)...”。选择“页脚更新”宏，单击“确定”完成宏的指定。最后单击该按钮，实现页脚更新。

EXCEL2010VBA页脚更新