| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求删除冗余值的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179819) |
| -- 作者：13315253800 -- 发布时间：2022/9/12 20:14:00 -- 求删除冗余值的代码 求删除冗余值的代码 老师您好，我删除冗余值的是采用三步，用显示冗余值 Tables("表A").RepeatFilter("第一列", 2) 然后手工选定筛选后的所有行，再用删除选定多行的代码 With Tables("表A") For i As Integer = .BottomPosition To .TopPosition Step - 1 .Rows(i).Delete() Next End With 请问老师有没有完整代码直接删除冗余值，只保留排除重复值后的行，不再用手工分步操作了 |
| -- 作者：有点蓝 -- 发布时间：2022/9/12 20:22:00 -- 不需要手工选定，按钮代码 Tables("表A").RepeatFilter("第一列", 2) With Tables("表A") For i As Integer = .rows.count - 1 To 0 Step - 1 .Rows(i).Delete() Next End With |
| -- 作者：13315253800 -- 发布时间：2022/9/12 20:45:00 -- 谢谢蓝老师，达到目的了。我想追加一问，在删除冗余值后直接显示排除重复值后的行，我加了一行代码，但没实现 Tables("表A").RepeatFilter("第一列", 2) With Tables("表A") For i As Integer = .rows.count - 1 To 0 Step - 1 .Rows(i).Delete() Next End With Tables("表A").RepeatFilter("第一列",
3) 请蓝老师再指导一下 |
| -- 作者：有点蓝 -- 发布时间：2022/9/12 21:09:00 -- Tables("表A").RepeatFilter("第一列", 3) 改为 Tables("表A").Filter = “” 或者 Tables("表A").ApplyFilter = False http://www.foxtable.com/webhelp/topics/0449.htm
|
| -- 作者：13315253800 -- 发布时间：2022/9/12 21:22:00 -- 好，谢谢蓝老师！ |