摘要： 下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过“Office按钮（或“文件”选项卡）→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”，该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003，A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。
按Alt F11，打开VBA编辑器，在右侧代码窗口中输入下列代码：
利用excel自定义函数去掉字符串中的重复字符
如果要在Excel中将单元格内字符串中的重复字符去掉，重复的字符仅保留一个，如将字符串“1232345667”变成“1234567”，可以用自定义函数实现。 步骤如下： 1.按Alt F11，打开VBA编辑器。 2.单击菜单“插入→模块&rdquo
Sub GetMRUList()
On Error Resume Next
Dim i, MRUNum As Integer
MRUNum = Application.RecentFiles.Maximum
Application.RecentFiles.Maximum = 50
Range("A1:A50").Clear
For i = 1 To 50
Cells(i, 1) = Application.RecentFiles(i).Path
Next i
Application.RecentFiles.Maximum = MRUNum
End Sub
运行代码，即可在A列中显示最近使用的工作簿列表。
在excel中利用VBA删除工作簿中的所有批注
用下面的VBA代码可以同时删除工作簿中所有工作表中的批注： 1.按Alt F11，打开VBA编辑器。 2.在代码窗口中输入下列代码 Sub RemoveAllComments()Dim sht As WorksheetDim cmt As CommentFor Each sht In ActiveWorkbook.Wo
