求助

shihaishiye

Sub text()
For Each Rng In [k2:k3000]
  'Dim regx As Object, str As String
   Set regx = CreateObject("VBSCRIPT.REGEXP")
     'Set str = Rng.text
     With regx
        .Gloabal = True
        .Pattern = "(D|DD|TD|MDD|M)(\d{2,3})(E|B)?(-\d{1,2})?"
        Set Matchs = .excute(Rng)
        For Each Match In Matchs
          Cells(Rng.Row, 4) = Match.Value
        Next
    End With
    Next
End Sub
    以上为代码：运行时老出现对象不支持属性，以下为原始数据在A列，是怎么啦？
  D154B-3
  D154B-3
  D154B-3
  M143-2
  MDD140
  MDD153
  M25-19
  D100B-2
  MDD139
  M17-17
  MDD140
  M17-17
  M65-36
  D263-1
  TD285-6
  M105-2
  MDD155
  M102-5
  M105-1
  M105-2
  M105-1