例如:
Dim s As String = "2,3,5,7,9"Dim vs() As String = s.Split(",")For Each v As String In vs Dim r As Row = Tables("表A").AddNew() r("第一列") = vNext
参考:
http://www.foxtable.com/help/topics/0245.htm