首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 办公应用 > OFFICE教程 >

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

2012-01-02 
[求助]Excel中删除值相同的行,请看清楚问题描述!例子:a列中有1,1,2,3,3,1,4结果是只要2和4,也就是只出现一

[求助]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

热点排行