来自http://tunps.com/excel-vba-macro-batch-string-replace
某业务系统导出的excel包含了很多多余的</a>标签（可能是系统功能错误吧）。
使用系统自带的替换功能需要输入待替换的字符串以及替换成的字符串，麻烦。所以写个macro，一个快捷键能够完成此操作。
按ALT+F11打开VB编辑器，在PERSONAL.XLS模块中写入如下代码如下：
Sub ReplaceATag() For Each c In ActiveCell.CurrentRegion.Cells If InStr(c.Value, "</a>") Then c.Value = Replace(c.Value, "</a>", "") Next End Sub |
ALT+F8打开【宏】对话框点【编辑】PerSONAL.XLS!RepaceATag，弹出【不能在隐藏工作簿中编辑宏。请选定“取消窗口隐藏”命令以显示工作簿。】在Excel【窗口】菜单中选择【取消隐藏(U)…】就不会弹出警告，宏也可以编辑运行了。
按ALT+R就去掉了所有的</a>字符串。
以后打开新的excel，直接ALT+F8，选择PerSONAL.XLS!RepaceATag，然后ALT+R就运行选定的宏。
参考
