excle Vba 提示重复数据的问题

如果是手动键入的，完全可以有数据有效性来处理。如果是复制的，（1）可以用条件格式来显示有重复的，加颜色。（2）当然可以用VBA代码来检查。不过我看楼主的要求，不需要用VBA代码数据有效性=countif(A1:A1000,A1)=1和条件格式的公式：=countif(A1:A1000,A1)>1如果是长的纯数字的。=countif(A1:A1000,A1&"*")=1=countif(A1:A1000,A1&"*")>1

比较费事的办法：

1）在access中建一个只有一列的表，然后用vba将每个数组读入后，按照","处分行插入到access的表中；

2）假设列的标题为st,用以下的sql语句即可输出处理后的数组：

select distinct st from 表名

比较直接的方法：适用于数据不是很多，只用一次

将所有待处理的数组后面加上逗号后合并成一行，用excell的导入外部数据功能（用逗号做分隔符)导入到excell后，用数据视图即可得到想要的结果。

---