Dim Info As String = Tables("表A").Current("第十列").replace(chr(10) & " ", "") Dim reg As new System.Text.RegularExpressions.Regex("(?<=.+:{1} {1}).+") Dim mc As object = reg.Matches(info) For i As Integer = 0 To mc.count - 1 output.show(mc(i).value) Next