RegEx 模式不完全存在

Question

RegEx 新手

第 1 行的单元格如下：

This That Other [Stuff I want to Keep]

我要

Suff I want to Keep

模式给出

[Stuff I want to Keep]

我不知道如何去掉括号，即 [ 和 ]

我可以用 vba 做到这一点，但尝试一些新的东西

谢谢

Sub Test()
Dim ws As Worksheet
Dim R As Range, Rng As Range
Dim i As Long, LC As Long

    Set ws = ThisWorkbook.Sheets("RegistrationData_Prepped")
    LC = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    Set Rng = ws.Range("A1").Resize(1, LC)

        With CreateObject("VBScript.RegExp")
          .Pattern = "\[([^\]]+)\]"

        For Each R In Rng
                If .Test(R.Value) Then
                    R(, 3) = .Execute(R)(0)
                End If
        Next
    End With
End Sub

Answer 1

.Execute(R)(0)是整个匹配，要找到你需要调用.SubMatches 属性的子匹配，即。 .Execute(R)(0).SubMatches(0)

RegEx 模式不完全存在

RegEx pattern not quite there

regex

excel

vba