Excel中只有一列电话号码，并且有好多是重复，我想把重复的只留一个其他都删掉

这就好办了，设号码都在A列，从A2开始的，只要先把A列排序，再在B1输入“判断”，在B2输入双引号内公式“=if(A2=A3,"留下","")”并向下复制到末尾，再以B列为“判断”关键字对A、B两列排序，这时就会把所有“留下”的行排在一起，其他就可以删除了。

数据→筛选→高级筛选→勾选“选择不重复的记录”→确定。

分太少了，懒得给你编VBA 代码

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