Dim t As Table = Tables("表A") For Each r As Row In t.Rows For Each c As Col In t.Cols Dim ns As String = "" For Each s As String In r.DataRow.Lines(c.name) Dim i1 As Integer = s.IndexOf("第") Dim i2 As Integer = s.IndexOf("列") If i1>=0 AndAlso i2>= 0 AndAlso i1<i2 Then Else ns &= s & vbcrlf End If Next r(c.name) = ns Next Next
加好友 
发短信
Post By：2017/6/29 14:30:00 [显示全部帖子]
