主题：[求助]拆分需求

老师好，由于情况特殊，请帮看下第一列单元格字符发生变化后，按需求拆分赋值到其它指定列，谢谢！

参考代码

 

Dim str As String = "DDS03H2-20X11-AH"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "([A-Za-z]+)([0-9]+)([A-Za-z]+[0-9]*)-([0-9]+)([A-Za-z]+[0-9]+)-([A-Za-z]+)")
If mc.count > 0 Then
    'msgbox(mc(0).Groups.count)
    msgbox(mc(0).groups(0).value)
    msgbox(mc(0).groups(1).value)
    msgbox(mc(0).groups(2).value)
    msgbox(mc(0).groups(3).value)
    msgbox(mc(0).groups(4).value)
    msgbox(mc(0).groups(5).value)
    msgbox(mc(0).groups(6).value)
End If