主题：请帮助解决：如何把纱号名称列的产品号自动变为品号列的数字？

 可以参考这段代码，放到命令窗口执行一遍。

Dim data As String = "abc11234-455555cccdddrrr"
'Dim data As String = "abc11234-455555-cccdddrrr"
Dim catchs As New System.Text.RegularExpressions.Regex("-{1}[0-9]+")
Dim mc As System.Text.RegularExpressions.MatchCollection = catchs.Matches(data)
msgbox(mc(0).Value.SubString(1))