excel 中选取两个固定字符串中间的内容

需求：只选取 [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