|
| Excel去重复 | 整数型 | |
|
| 文件路径 | 文本型 | | | |
列索引数组 | 整数型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 定位表格行 | 整数型 | | |
| 定位表格列 | 整数型 | | |
| 定位行组 | 整数型 | | 0 |
| 总行数 | 整数型 | | |
| 总列数 | 整数型 | | |
| book | XL工作簿类 | | |
| sheet | XL工作表类 | | |
| i | 整数型 | | |
| 局哈希 | 哈希表_ASM | | |
| 去重列文本和 | 文本型 | | |
| n | 整数型 | | |
| 删除行索引组 | 整数型 | | 0 |
| 参与列数量 | 整数型 | | |
| 删除数量 | 整数型 | | |
如果真 (取反 (book.
打开文件 (文件路径
))
)
返回 (0
)sheet ＝ book.选择工作表 (0)总行数 ＝ sheet.
结束使用行 ()总列数 ＝ sheet.
结束使用列 ()局哈希.
创建 ( #文本型, #整数型, 18
) 参与列数量 ＝
取数组成员数 (列索引数组
)
计次循环首 (总行数, 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.
保存文件 (文件路径
)返回 (删除数量
)
