无效属性或错误参数号

yedeen

如下代码运过程显示无效属性或错误参数号
Sub repy1()
Dim arr1(1 To 200, 1 To 1)
Set rge = Cells(Rows.Count, 2).End(xlUp)
arr = Range([B2], rge)
With CreateObject("vbscript.regexp")
     .Global = True
     .Pattern = "^\d+"
     For Each Rng In arr
       Set mAT = .Execute(Rng)
        y = y + 1
         If InStr(Rng, "/MP") > 0 Then
            arr1(y, 1) = mAT & "/MP1"
         ElseIf InStr(Rng, "/SVT") > 0 Then
             arr1(y, 1) = mAT & "/SVT"
          ElseIf InStr(Rng, "/REW") > 0 Then
             arr1(y, 1) = mAT & "/REW"
         Else
         arr1(y, 1) = mAT
         End If
        Next
End With
[B2].Resize(y) = arr1

End Sub

yedeen

00000000000000000000000000000