Excel删除重复问题

宝晨娱乐

需要从所有名单里面把报名人删除掉 筛选出来没有报名的人
里面有可能还有学号是18开头的  如果学号是18开头的也要删除掉
最后导出我写好了
就是删除的地方还是有些问题
里面有两个数据

yunying

哪里有报名状态

寒潮

删除.e (10.37 KB, 下载次数: 14)

2019-11-13 09:50 上传

点击文件名下载附件

速度稍慢，但是可以做到删除全部重复的。

哗啦啦，

  

如果 (文件是否存在 (路径) ＝ 真)
删除文件 (路径)
结束 ()

.版本 2<br /> <br /> .如果 (文件是否存在 (路径) ＝ 真)<br />     删除文件 (路径)<br />     结束 ()<br /> <br /> .否则

lianzuo123

数据初始化的时候存到内存里,hashMap去一下重复就好

宝晨娱乐

lianzuo123 发表于 2019-11-13 11:03
数据初始化的时候存到内存里,hashMap去一下重复就好

我是要把重复的都删掉

lianzuo123

宝晨娱乐 发表于 2019-11-13 11:04
我是要把重复的都删掉

hashMap计数,出现次数超过2的,删掉

lianzuo123

分析一下步骤不就好了吗..
1.先统计,计数, 将所有表项的索引以及序号加入到hashMap里
2.循环hashMap里的数据,取出所有出现次数超过2的索引,加入到另外一个待删除的数组
3.循环待删除数组,剔除数据

lianzuo123

  

子程序名	返回值类型	公开	备 注
子程序_列表去重			出现2及以上的数据,都不要了
参数名	类 型	参考	可空	数组	备 注
List	超级列表框

变量名	类 型	静态	数组	备 注
i	整数型
hashMap	哈希表类zy
Str	文本型
hashMap_	哈希表类zy
keys	文本型		0
Num	整数型
Arr	文本型		0
DelStr	文本型
Arr_Index	整数型		0

调试输出 (List.取表项数 ())
hashMap.创建 ( #文本型, #整数型, , )  ' 记录出现次数
hashMap_.创建 ( #文本型, #文本型, , )  ' 记录索引
计次循环首 (List.取表项数 (), i)
Str ＝ List.取标题 (i － 1, 1)
hashMap.增减value数值 (Str, 1)  ' 记录下该学号的出现次数
hashMap_.追加value文本 (Str, 到文本 (i － 1) ＋ “,”)  ' 记录该学号出现的位置索引,多个用逗号(,)分隔开
计次循环尾 ()
' --------------------循环取出所有出现次数大于1的,并将索引放入 DelStr 变量
hashMap.取所有键 (keys)
计次循环首 (取数组成员数 (keys), i)
Num ＝ hashMap.取值 (keys [i])
如果真 (Num ＞ 1)
Str ＝ hashMap_.取值 (keys [i])
DelStr ＝ DelStr ＋ Str

计次循环尾 ()
DelStr ＝ 取文本左边 (DelStr, 取文本长度 (DelStr) － 1)  ' 去掉逗号
' ---------处理待删除的索引,转为整数数组
Arr ＝ 分割文本 (DelStr, “,”, )
重定义数组 (Arr_Index, 假, 取数组成员数 (Arr))
计次循环首 (取数组成员数 (Arr), i)
Arr_Index [i] ＝ 到整数 (Arr [i])
计次循环尾 ()
数组排序 (Arr_Index, 真)  ' 删除索引必须从小到大,不然会有问题
' ------------------根据 Arr_Index 数组删除表项
计次循环首 (取数组成员数 (Arr_Index), i)
List.删除表项 (Arr_Index [i] － i ＋ 1)
计次循环尾 ()
调试输出 (List.取表项数 ())

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 子程序_列表去重, , , 出现2及以上的数据,都不要了<br /> .参数 List, 超级列表框<br /> .局部变量 i, 整数型<br /> .局部变量 hashMap, 哈希表类zy<br /> .局部变量 Str, 文本型<br /> .局部变量 hashMap_, 哈希表类zy<br /> .局部变量 keys, 文本型, , "0"<br /> .局部变量 Num, 整数型<br /> .局部变量 Arr, 文本型, , "0"<br /> .局部变量 DelStr, 文本型<br /> .局部变量 Arr_Index, 整数型, , "0"<br /> <br /> 调试输出 (List.取表项数 ())<br /> hashMap.创建 (#文本型, #整数型, , )  ' 记录出现次数<br /> hashMap_.创建 (#文本型, #文本型, , )  ' 记录索引<br /> <br /> .计次循环首 (List.取表项数 (), i)<br />     Str ＝ List.取标题 (i － 1, 1)<br />     hashMap.增减value数值 (Str, 1)  ' 记录下该学号的出现次数<br />     hashMap_.追加value文本 (Str, 到文本 (i － 1) ＋ “,”)  ' 记录该学号出现的位置索引,多个用逗号(,)分隔开<br /> .计次循环尾 ()<br /> <br /> ' --------------------循环取出所有出现次数大于1的,并将索引放入 DelStr 变量<br /> hashMap.取所有键 (keys)<br /> .计次循环首 (取数组成员数 (keys), i)<br />     Num ＝ hashMap.取值 (keys <i>)<br />     .如果真 (Num ＞ 1)<br />         Str ＝ hashMap_.取值 (keys <i>)<br />         DelStr ＝ DelStr ＋ Str<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> DelStr ＝ 取文本左边 (DelStr, 取文本长度 (DelStr) － 1)  ' 去掉逗号<br /> <br /> <br /> ' ---------处理待删除的索引,转为整数数组<br /> Arr ＝ 分割文本 (DelStr, “,”, )<br /> 重定义数组 (Arr_Index, 假, 取数组成员数 (Arr))<br /> .计次循环首 (取数组成员数 (Arr), i)<br />     Arr_Index <i> ＝ 到整数 (Arr <i>)<br /> .计次循环尾 ()<br /> 数组排序 (Arr_Index, 真)  ' 删除索引必须从小到大,不然会有问题<br /> <br /> <br /> ' ------------------根据 Arr_Index 数组删除表项<br /> .计次循环首 (取数组成员数 (Arr_Index), i)<br />     List.删除表项 (Arr_Index <i> － i ＋ 1)<br /> .计次循环尾 ()<br /> 调试输出 (List.取表项数 ())

模块
zyHashTable.e (79.83 KB, 下载次数: 7)

2019-11-13 11:43 上传

点击文件名下载附件

补充内容 (2019-11-13 11:44):
我没有测试,你自己测试一下,有问题根据源码改一下

宝晨娱乐

lianzuo123 发表于 2019-11-13 11:43
[e=0].版本 2
.支持库 iext
.支持库 spec

Num ＝ hashMap.取值 (keys <i>)
这一行 出现   错误(8): 右括号处于错误位置。