需求:只选取 [Device Name] 与 [Original Contents] 之间的内容,忽略其他内容
Alt+F11 ,选中想要更改的sheet, 右键查看代码,将代码添加进去。
添加后 点击RUN (三角形按钮)即可
以下为代码实现:
Private Sub RegExp_Replace()
Dim RegExp As Object
Dim SearchRange As Range, Cell As Range
'此处定义正则表达式
Set RegExp = CreateObject("vbscript.regexp")
'此处指定查找范围
Set SearchRange = ActiveSheet.Range("D4:D374")
'遍历查找范围内的单元格
For Each Cell In SearchRange
Cell.replace What:="[Device Name]*", Replacement:=""
Cell.replace What:="[Original Contents] : ", Replacement:=""
Next
End Sub
参考连接:https://www.cnblogs.com/xwgli/p/5845317.html