如何写这个正则表达式

境界的彼方520

只能写到这程度，但又不清楚如何继续写，求各位指导一下，谢谢

Sub t2()
       Dim reg As Object
       Set reg = CreateObject("VBScript.RegExp")
         Dim sr, ma, s, m
         sr = Range("B2") & ";" & Range("C2")
         With reg
           .Global = True
           .Pattern = "R.*?;"
         Set ma = .Execute(sr)
           For Each m In ma
              s = s + Val(m) 'm此时为4个字符串，没办法求和，不知道怎么修改
           Next m
         End With
        Range("j2") = s
     End Sub

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "^RB_(\d+);RW_(\d+);TB_(\d+);TW_(\d+)$"
   
8.     Set mh = .Execute(Range("b2"))
   
9.   End With
   
10.   With Worksheets("test")
    
11.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.     arr = .Range("a2:d" & r)
    
13.     ReDim brr(1 To UBound(arr), 1 To 4)
    
14.     For i = 1 To UBound(arr)
    
15.       brr(i, 1) = Format(arr(i, 1), "yyyy/mm/dd hh")
    
16.       For j = 2 To 3
    
17.         Set mh = reg.Execute(arr(i, j))
    
18.         If mh.Count > 0 Then
    
19.           brr(i, 3) = brr(i, 3) + Val(mh(0).SubMatches(0))
    
20.           brr(i, 4) = brr(i, 4) + Val(mh(0).SubMatches(1))
    
21.         End If
    
22.       Next
    
23.     Next
    
24.     For i = 1 To UBound(brr)
    
25.       brr(i, 2) = brr(i, 3) + brr(i, 4)
    
26.     Next
    
27.     .Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
28.   End With
    
29. End Sub
    

复制代码

chxw68

详见附件。

境界的彼方520

chxw68 发表于 2018-8-19 16:42

是这个效果，思路清晰，豁然开朗，感谢解答

YZC51

学习 chxw68 老师的代码。谢谢老师！
Sub test()
    Dim r%, i%
    Dim arr, brr
    Dim reg As New RegExp
    With reg
        .Global = True
        .Pattern = "^RB_(\d+);RW_(\d+)*"
        Set mh = .Execute(Range("b2"))
    End With
    With Worksheets("test")
        r = .Cells(.Rows.Count, 1).End(xlUp).Row
        arr = .Range("a2:d" & r)
        ReDim brr(1 To UBound(arr), 1 To 4)
        For i = 1 To UBound(arr)
            brr(i, 1) = arr(i, 1)
            Set mh = reg.Execute(arr(i, 2))
            Set mh1 = reg.Execute(arr(i, 3))
            If mh.Count > 0 Then
                brr(i, 3) = brr(i, 3) + Val(mh(0).SubMatches(0))
                brr(i, 4) = brr(i, 4) + Val(mh(0).SubMatches(1))
                brr(i, 3) = brr(i, 3) + Val(mh1(0).SubMatches(0))
                brr(i, 4) = brr(i, 4) + Val(mh1(0).SubMatches(1))
            End If
            brr(i, 2) = brr(i, 3) + brr(i, 4)
        Next
        .Range("i2").Resize(UBound(brr), UBound(brr, 2)) = brr
        Range("I2:I" & UBound(brr)).NumberFormatLocal = "yyyy/mm/dd hh"
    End With
End Sub