- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]拆分需求 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133286)
-- 发布时间：2019/4/11 11:42:00
-- [求助]拆分需求
老师好，由于情况特殊，请帮看下第一列单元格字符发生变化后，按需求拆分赋值到其它指定列，谢谢！
此主题相关图片如下：拆分需求.jpg
-- 发布时间：2019/4/11 14:42:00
--
参考代码
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