wps问题麻烦大佬们帮帮忙

lk86090237kk

用易语言WPS筛选出一列的重复数据 感谢感谢

算法艺术家

  

子程序名	返回值类型	公开	备 注
Excel删除重复项	整数型		删除全部重复列的行并返回删除数量
参数名	类 型	参考	可空	数组	备 注
文件路径	文本型
列索引数组	整数型				空为全部列参与去重，传入所有参与去重复的列索引 从0开始 ，例如0列和2列参与 { 0, 2 }

变量名	类 型	静态	数组	备 注
定位表格行	整数型
定位表格列	整数型
定位行组	整数型		0
总行数	整数型
总列数	整数型
book	XL工作簿类
sheet	XL工作表类
i	整数型
局哈希	哈希表_ASM
去重列文本和	文本型
n	整数型
删除行索引组	整数型		0
参与列数量	整数型
删除数量	整数型

如果真 (取反 (book.打开文件 (文件路径)))
返回 (0)
sheet ＝ book.选择工作表 (0)
总行数 ＝ sheet.结束使用行 ()
总列数 ＝ sheet.结束使用列 ()
局哈希.创建 ( #文本型, #整数型, 18)  ' 2的20次方除以1024 ' 256KB容量
参与列数量 ＝ 取数组成员数 (列索引数组)
计次循环首 (总行数, i)
去重列文本和 ＝ “”
判断 (参与列数量 ＝ 0)
计次循环首 (总列数, n)
去重列文本和 ＝ 去重列文本和 ＋ sheet.取单元格文本 (到整数 (i － 1), n － 1) ＋ 到文本 (n － 1)
计次循环尾 ()



计次循环首 (参与列数量, n)
如果真 (总列数 ＜ 列索引数组 [n])
调试输出 (“错误：第” ＋ 到文本 (列索引数组 [n]) ＋ “列，欲去重复的列已超过总列数范围”)
到循环尾 ()

去重列文本和 ＝ 去重列文本和 ＋ sheet.取单元格文本 (到整数 (i － 1), 列索引数组 [n]) ＋ 到文本 (列索引数组 [n])
计次循环尾 ()

判断 (局哈希.cha询 (去重列文本和) ＝ 假)
局哈希.添加 (去重列文本和, 0)
加入成员 (删除行索引组, i)

计次循环尾 ()
局哈希.清空 ()
删除数量 ＝ 取数组成员数 (删除行索引组)
计次循环首 (删除数量, i)
sheet.删除行 (删除行索引组 [i] － 1)
计次循环尾 ()
book.保存文件 (文件路径)
返回 (删除数量)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 Excel删除重复项, 整数型, 公开, 删除全部重复列的行并返回删除数量 <br /> .参数 文件路径, 文本型<br /> .参数 列索引数组, 整数型, 可空 数组, 空为全部列参与去重，传入所有参与去重复的列索引 从0开始 ，例如0列和2列参与 { 0, 2 }<br /> .局部变量 定位表格行, 整数型<br /> .局部变量 定位表格列, 整数型<br /> .局部变量 定位行组, 整数型, , "0"<br /> .局部变量 总行数, 整数型<br /> .局部变量 总列数, 整数型<br /> .局部变量 book, XL工作簿类<br /> .局部变量 sheet, XL工作表类<br /> .局部变量 i, 整数型<br /> .局部变量 局哈希, 哈希表_ASM<br /> .局部变量 去重列文本和, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 删除行索引组, 整数型, , "0"<br /> .局部变量 参与列数量, 整数型<br /> .局部变量 删除数量, 整数型<br /> <br /> .如果真 (取反 (book.打开文件 (文件路径)))<br />     返回 (0)<br /> .如果真结束<br /> sheet ＝ book.选择工作表 (0)<br /> 总行数 ＝ sheet.结束使用行 ()<br /> 总列数 ＝ sheet.结束使用列 ()<br /> 局哈希.创建 (#文本型, #整数型, 18)  ' 2的20次方除以1024 ' 256KB容量<br /> 参与列数量 ＝ 取数组成员数 (列索引数组)<br /> .计次循环首 (总行数, i)<br />     去重列文本和 ＝ “”<br />     .判断开始 (参与列数量 ＝ 0)<br />         .计次循环首 (总列数, n)<br />             去重列文本和 ＝ 去重列文本和 ＋ sheet.取单元格文本 (到整数 (i － 1), n － 1) ＋ 到文本 (n － 1)<br />         .计次循环尾 ()<br /> <br />     .默认<br /> <br />         .计次循环首 (参与列数量, n)<br />             .如果真 (总列数 ＜ 列索引数组 [n])<br />                 调试输出 (“错误：第” ＋ 到文本 (列索引数组 [n]) ＋ “列，欲去重复的列已超过总列数范围”)<br />                 到循环尾 ()<br />             .如果真结束<br /> <br />             去重列文本和 ＝ 去重列文本和 ＋ sheet.取单元格文本 (到整数 (i － 1), 列索引数组 [n]) ＋ 到文本 (列索引数组 [n])<br />         .计次循环尾 ()<br />     .判断结束<br /> <br />     .判断开始 (局哈希.cha询 (去重列文本和) ＝ 假)<br />         局哈希.添加 (去重列文本和, 0)<br />     .默认<br />         加入成员 (删除行索引组, i)<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 局哈希.清空 ()<br /> 删除数量 ＝ 取数组成员数 (删除行索引组)<br /> .计次循环首 (删除数量, i)<br />     sheet.删除行 (删除行索引组 <i> － 1)<br /> .计次循环尾 ()<br /> book.保存文件 (文件路径)<br /> 返回 (删除数量)

lk86090237kk

算法艺术家 发表于 2025-2-19 22:47
[e=3].版本 2
.支持库 spec

大哥 麻烦来个成品 感谢

算法艺术家

lk86090237kk 发表于 2025-2-19 22:56
大哥 麻烦来个成品 感谢

这就是成品，哈希表ASM模块 论坛里有，LibXL模块 论坛里也有

lk86090237kk

算法艺术家 发表于 2025-2-19 23:04
这就是成品，哈希表ASM模块 论坛里有，LibXL模块 论坛里也有

要EXE好的那种

果心豆腐酱

=IF(COUNTIF($A:$A,$A1)>1,$A1,"")

dashen127

wps的去重复怎么可能不好用，我就没见过去不掉的

lk86090237kk

dashen127 发表于 2025-2-20 09:34
wps的去重复怎么可能不好用，我就没见过去不掉的

处理多了就是不好用 就是去不掉