[]Excel中删除值相同的行，请看清楚有关问题描述

[求助]Excel中删除值相同的行，请看清楚问题描述！
例子：
a列中有1，1，2，3，3，1   ，4  
结果是只要2和4，也就是只出现一次数据
宏怎么编，或者有什么更好的方法

------解决方案--------------------------------------------------------
在B列，使用公式：
=COUNTIF($A$2:$A$8,A2)
然后自动筛选，把b列中不等于1的筛选出来，然后全部删除
------解决方案--------------------------------------------------------
在B列输入如下公式：

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


------解决方案--------------------------------------------------------
假设共100行,b列为空：
dim str as string
dim i,j as integer
for i = 1 to 99
str=range( "a "&i).value
for j = 2 to 100
if str=range( "a "&j).value then
range( "b "&i).activate
range( "b "&i).value=1
range( "b "&j).activate
range( "b "&j).value=1
end if
next j
next i

for i = 100 to 1 step -1
if range( "b "&i).value =1 then
worksheets( "sheet1 ").rows(i).delete
end if
next i