正则表达式模式不完全存在

Question

正则表达式新手

我的第 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)