Question

VBA循环检查LISTVIEW的问题

业余编程，写的脑袋疼，求一段代码，实现循环检查的。见图

每一行的第二列和第三列都有字符，想全文自动检查下有没有重复的一模一样的行，检查到以后自动删除。
最好能优化下算法。较容易实现的方法是每一行都遍历查找，这样数据库比较大的化会慢，比较快的算法大概是建的结构体之类的来算了。哪位大师能给个代码？高分相酬。
这个程序是用于word 文档批量校对和替换的。

Answer 1

去重复可以把放到Excel工作表里操作啊。用excel的高级筛选就可以了。请看附件。

其实，你可以在初始化listview的时候，就可以做去重复操作的。

同时添加item的key属性，如果key存在那么会发生错误，则添加不成功。

附件是个压缩包，里面有两个文件，分别是利用高级筛选去重和添加时去重。

追问

是的，excel是可以去重，我只是想简化使用者的操作，必要的功能都在一个界面上来实现。不要在几个文件之间来回倒。这个程序读入的是一个文本文件，要替换的两个字符之间是用顿号隔开的。文本文件中要替换的两个字符之间是用等号隔开的。把这样一个文件导入excel在用高级筛选来做，对于初学者来说还是挺麻烦的。所以我还是想研究下如何在程序本身实现去重功能。

追答

我的附件里都是去重都是用代码实现的，不需要操作者手动高级筛选。

其实可以给你一个思路：
1、程序读入文本文件到Excel表格里面。
2、然后用Excel的自动筛选功能去掉重复。
3、然后把去掉重复的项目读入到Listview控件。
或者
在读入文本文件时，在往 Listview里添加项目的时候去重复。我的附件里面有例子。

追问

谢谢您这么用心指导，我的代码是在WORD下编的，虽然我引用了excl，还是有一些错误，比如rng = arr赋值被判定“类型不匹配”。写这个程序的初衷是解决OCR文档批量校对的问题，因为考虑到现有的校对库是TXT文档，而且考虑我们不能要求所有会word的文字编辑都会使用EXCEL,因此没有考虑利用excel。现在看来这个考虑可能是多虑的，应该采用EXCEL,还可以省去很多麻烦。