wahaha_glg

重复行删除的问题还要用VBA？？牛刀用在蚂蚁身上了。
07及以上版本，直接在数据选项中使用删除重复项即可
03版本，可以用countif函数：假设A列为姓名，B列为身份证，数据起始行为第2行，则
C列公式写为
=countif(a:a,a2)　　　　或　　　　　　=countif(b:b,b2)
第一个公式表示用姓名来查找是否重复（所以若有重名就要注意排除了），第二个公式表示用身份证号来查找是否重复，这个应当说才是更好的选择，因为身份证号不会重复，不过我不相信你们几千个号码不会录错，嘿嘿。
结果若大于1，即代表重复行，筛选出来选择性删除即可。