没有问题,用split拆分:
http://www.foxtable.com/help/topics/1338.htm
http://www.foxtable.com/help/topics/0245.htm
代码类似:
Dim Multi As String = Tables("表A").Current("第一列")Dim Values() As Stringmulti = multi.Replace(vbcr,vblf)Values = Multi.split(vblf)For Each val As String In values If val > "" Then Output.Show(val) End IfNext