型号提取问题，是否可用正则表达式一步完成，高手留步！

jy03342543

Sub Test()
Dim Arr, Brr
Dim I As Integer
Dim Mat, J
Dim Regx As Object
Set Regx = CreateObject("vbscript.regexp")
Arr = Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)
ReDim Brr(1 To UBound(Arr), 1 To 2)
  With Regx
    For I = 1 To UBound(Arr)
      .Global = True
      .Pattern = "(美的)(西施|白玉瓷|玲珑|智能)?([A-Za-z0-9]+)?-?([A-Za-z0-9]+)?([一-龢]+)([\w-]+)?"
       Set Mat = .Execute(Arr(I, 1))
         For J = 0 To Mat.Count - 1
            Brr(I, 1) = Mat(J).submatches(4)
              If Mat(J).submatches(5) = "" Then
                 If Mat(J).submatches(2) = "MB" Then
                   Brr(I, 2) = Mat(J).submatches(3)
                 Else
                   Brr(I, 2) = Mat(J).submatches(2)
                 End If
              Else
                   Brr(I, 2) = Mat(J).submatches(5)
              End If
         Next
    Next
  End With
  Range("I2").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub