[已解决]正则表达式

837852190

sub t()
Dim dy As Object, reg As Object
Dim sr, ma, z
Set reg = CreateObject("VBScript.RegExp") '创建正则对象
         sr = ActiveWorkbook.Sheets(1).Range("i4").Value
         With reg
           .Global = True
           .Pattern = "\d+\.?\d+"
         Set ma = .Execute(sr)
           For Each z In ma
              If z <> "" Then
              ThisWorkbook.Sheets("sheet1").Range("c" & k + 1) = Val(z)
              Else
              ThisWorkbook.Sheets("sheet1").Range("c" & k + 1) = Right(ActiveWorkbook.Sheets(1).Range("c4"), 4)
              End If
           Next z
         End With
end sub
为什么运行到For Each就直接跳到End With  里面的if else语句不循环   哪里有问题啊

最佳答案

月排行榜 / 总排行榜

zhanglei1371

2021-9-20 09:38

很明显，正则根本没有匹配到值，所以就直接退出了

跳转到最佳答案楼层

zhanglei1371

很明显，正则根本没有匹配到值，所以就直接退出了