求助，如何用正则表达式求表格里中括号里数字之和

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = ".*?\[(\d)\]": .Global = True
        For i = 2 To 3
            Cells(i, "B") = Evaluate(Left(.Replace(Cells(i, "A"), "$1+"), Len(.Replace(Cells(i, "A"), "$1+")) - 1))
        Next i
    End With
End Sub

松永

liulang0808 发表于 2024-3-22 14:29
arr(j, 1) =Application.Evaluate(Mid(str1, 2))
这段赋值修改下看看

谢谢老师的帮助

松永

limonet 发表于 2024-3-22 14:32
关键字：$1

谢谢老师的帮助。另，如里不是相连的行怎么处理呢？如正面附件，多谢

松永

谢谢老师的帮助。如里不是相连的行怎么处理呢？如正面附件，多谢

limonet

想灵活，用自定义函数

limonet

Function FxRegExp(Rng As Range)
    With CreateObject("vbscript.regexp")
        .Pattern = ".*?\[(\d)\]": .Global = True
        If Rng <> "" Then
            FxRegExp = Evaluate(Left(.Replace(Rng.Value, "$1+"), Len(.Replace(Rng.Value, "$1+")) - 1))
        Else
            FxRegExp = ""
        End If
    End With
End Function

松永

limonet 发表于 2024-3-22 14:46
想灵活，用自定义函数

能否不用函数，因为在表中随月份的变化而变列，能否还用VBA？麻烦老师了

limonet

用intersect

limonet

Sub limonet()
    Dim i%, Arr As Variant
    Arr = Intersect(Range("A2:A99"), ActiveSheet.UsedRange)
    With CreateObject("vbscript.regexp")
        .Pattern = ".*?\[(\d)\]": .Global = True
        For i = 1 To UBound(Arr)
            If Arr(i, 1) <> "" Then
                Arr(i, 1) = Evaluate(Left(.Replace(Arr(i, 1), "$1+"), Len(.Replace(Arr(i, 1), "$1+")) - 1))
            End If
        Next i
    End With
    Range("B2").Resize(i - 1) = Arr
End Sub

ykcbf1100

附件供参考。。。