主题：[求助] 两次拆分字符串后填入表格

'''
Dim s1 As String = “2015-01-01至2015-12-31、浦沅机械厂、焊接车间、焊工、锰尘、口罩；2016-01-01至2016-12-31、三一重工、焊接车                                      间、焊工、锰尘、口罩；2017-01-01至2017-12-31、塘桥机械厂、唐工车间、钳工、噪声、耳塞；”
Dim pps() As String = s1.Split("；")

For Each pp As String In pps
    Dim pos() As String = pp.Split("、")
    If pos.length >= 2 Then
        msgbox(pos(0))
        msgbox(pos(1))
    End If
Next

1、代码单独测试，看效果。

2、如果无法处理，请上传具体实例测试。