- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]单元格内删除特定字符串所在的行（或段） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103032)
-- 发布时间：2017/6/29 13:49:00
-- [求助]单元格内删除特定字符串所在的行（或段）
在单元格内有很多行（Ctrl+回车形成的），我想如果这一类的行中含有“第*列”这类字符的话，就删除单元格内的这一行。
注：“第*列”---可能是第一列、第十一列......就是“第”和“列”之间的字符个数不一定。
此主题相关图片如下：image 1.jpg
附件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:单元格内删除行（或段）.table |
-- 发布时间：2017/6/29 14:30:00
--
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