首页 > 代码库 > 在 Excel 中使用正则表达式进行查找与替换
在 Excel 中使用正则表达式进行查找与替换
在 Excel 中，使用 Alt+F11 快捷键打开 VBA 项目窗口，在左侧的工作表名称上点右键，选择查看代码，即可出出现右侧的代码编辑窗口
在代码窗口中输入以下代码：
Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range ‘此处定义正则表达式 Set RegExp = CreateObject("vbscript.regexp") RegExp.Pattern = "[0-9]{5}" ‘此处指定查找范围 Set SearchRange = ActiveSheet.Range("A1:A99") ‘遍历查找范围内的单元格 For Each Cell In SearchRange Set Matches = RegExp.Execute(Cell.Value) If Matches.Count >= 1 Then Set Match = Matches(0) Cell.Value = RegExp.Replace(Cell.Value, "") End If NextEnd Sub
根据实际需要替换相应参数，点击 
运行即可得到效果。
在 Excel 中使用正则表达式进行查找与替换
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。