摘要： 有时需要在工作表的页眉或页脚中显示最后修改的日期和时间，在Excel中可以用下面的VBA代码来实现，步骤如下： 例如在页眉的中部显示工作簿最后保存时间，按Alt F1...
有时需要在工作表的页眉或页脚中显示最后修改的日期和时间，在Excel中可以用下面的VBA代码来实现，步骤如下：
例如在页眉的中部显示工作簿最后保存时间，按Alt F11打开VBA编辑器，双击“工程”窗口中的“ThisWorkbook”，然后在代码窗口中粘贴下列代码：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "最后修改时间：" Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub
这样，每次保存工作簿，该代码会在当前活动工作表的页眉中显示最后修改的日期和时间。
关于Excel VBA学习的几个观点
一、VBA怎么学？ 个人认为，关键是你要用VBA做什么？这就涉及到你对VBA的认识了，是局限于EXCEL还是着眼于OFFICE，抑或是为了VBS。甚至你可以将VBA当做VB的入门准备。要是真的想学VBA，至少要从几个方面着手吧： 1、相关的基础知识要掌握。如对象、属性、方法、事件、数据类型，虽然这看起来很麻烦，实际
如果要在单元格中显示最后修改时间，可用下面的自定义函数，方法是在VBA编辑器中单击菜单“插入→模块”，在代码窗口中输入下面的代码：
Function LST()
Application.Volatile
LST = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Function
然后保存工作簿，在单元格中输入公式：
=LST()
将返回最后保存的日期和时间。Application.Volatile语句将该自定义函数标记为易失性函数，其作用是当任意单元格进行计算时，该自定义函数都将重新进行计算。
利用VBA将多行多列区域转为一列
有时需要在Excel中将某个多行多列的区域转换到一列中，下面的VBA代码可以实现这个目的。 1.按快捷键Alt F11，打开VBA编辑器，在右侧代码窗口中粘贴下列代码： Sub RangeToOneCol()Dim TheRng, TempArrDim i As Integer, j As Integer, elemC
