在 Excel 中，使用 Alt+F11 快捷鍵打開 VBA 項目窗口，在左側的工作表名稱上點右鍵，選擇查看代碼，即可出出現右側的代碼編輯窗口

在代碼窗口中輸入以下代碼1：

Private Sub RegExp_Replace()Dim RegExp As ObjectDim SearchRange As Range, Cell As Range'此處定義正則表達式Set RegExp = CreateObject("vbscript.regexp")RegExp.Pattern = "(;$)"'此處指定查找范圍Set SearchRange = ActiveSheet.Range("A1:A99")'遍歷查找范圍內的單元格For Each Cell In SearchRangeSet Matches = RegExp.Execute(Cell.Value)If Matches.Count >= 1 ThenSet Match = Matches(0)Cell.Value = RegExp.Replace(Cell.Value, "")End IfNextEnd Sub

點擊??運行即可去除郵箱字符串尾部的分號；

?

然后重新輸入以下代碼2：

Private Sub RegExp_Replace()Dim RegExp As ObjectDim SearchRange As Range, Cell As Range'此處定義正則表達式Set RegExp = CreateObject("vbscript.regexp")RegExp.Pattern = "(,$)"'此處指定查找范圍Set SearchRange = ActiveSheet.Range("A1:A99")'遍歷查找范圍內的單元格For Each Cell In SearchRangeSet Matches = RegExp.Execute(Cell.Value)If Matches.Count >= 1 ThenSet Match = Matches(0)Cell.Value = RegExp.Replace(Cell.Value, "")End IfNextEnd Sub

點擊??運行即可去除郵箱字符串尾部的逗號，

?

然后選中郵箱地址列，替換；為，即可

?

?

?

?

附（從https://blog.csdn.net/forest_fire/article/details/79019435轉載）：

如果?excel 提示該工程中的宏被禁止在 -》工具-》宏-》安全性-》中，然后關閉重新打開，會提示是否啟用宏。選啟用宏：

?

如果您的EXECL2003宏被禁用，有以下幾種解決辦法

• 利用EXCEL的宏安全性問題

在菜單中選擇：工具－－選項－－宏－－安全性，設置成“低”或“中”，再打開文件，宏會提示使用“宏”，按“啟動宏”打開文件。

如果安全性調成中，打開EXCEL文檔時就會提示是否加載宏。?
如果安全性調成低，那么打開EXCEL文檔時就直接加載宏。

• 刪除EXCEL模板（當第一個方法無法實現時使用）

C:\Documents and Settings\你的用戶名\Application Data\Microsoft\Excel\Excel11－模板刪除.

• 修改注冊表實現（當第一個方法無法實現時使用）

打開注冊表編輯工具(regedit.exe)，找到HKEY_LOCAL_MACHINE打開,找SOFTWARE打開,找Microsoft打開,找office打開,找11.0打開,找EXCEL打開,找security打開后看到它旁邊的窗口有一項名稱為LEVEL的，雙擊它，在跳出的編輯DWORD值里面看到數值數據（V）：下面的空格啦，你就可以在里面修改數值啦。注意：填寫1為低，填寫2為中，填寫3為高。

?

office系統其他應用軟件的宏禁用解決方法與此類似。

總結

以上是生活随笔為你收集整理的Excel中 匹配尾部字符并替换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。