如图 *** 作:
效果:
把ABC三列的数值保持唯一,新增一行标识,把ABC三列归为一列,用上图方法,如下:
1、ABC标黄的为重复值,新增第一行为标识符;
2、复制黏贴到另外 一张sheet里面,归为一列,用删除重复项功能;
3、根据标示符,把列值归位,效果如下:
希望能达到你想要的效果
不知道你会不会 *** 作SQL 数据库,如果会的话,把你excel里面的数据导入到数据库里面,用SQL 语句 distinct 也是可以的。用excel删除多列,暂时不知道还没有别的方法。。看下别人的方法。。
方法/步骤打开需要编辑的Excel表格。观察表格发现有部分数据相同,需要将这些重复的数据用醒目的颜色标注出。首先,选中需要查找重复值的一列或某个区域。具体 *** 作,如图所示。
鼠标单击开始菜单,依次选择样式-条件格式-突出显示单元格规则-重复值。
Ps:这些步骤适应于microsoft07版本。03版本的童鞋可以查看我的另一篇经验贴“怎么在Excel2003版中查找重复值”。
d出重复值对话框,为包含以下类型的单元格设置格式。默认的选择是重复值设置为浅红填充色深红色文本。点击确定。
点击确定。观察Excel表格,是不是发现Excel表格中的那些重复值已经被标红显示了呢。显示效果如图所示。
5
将这些重复值成功标注后,您可以对数据进行其他处理,如筛选。具体 *** 作步骤:点击开始菜单-排序和筛选-筛选-按颜色排序-后单独显示重复数据。您也可以根据个人需要,删除或者继续其他编辑。用字典可以轻松快捷地实现去重的 *** 作,代码如下:
Sub main()
Set dic = CreateObject("scriptingdictionary") '创建字典对象,并把字典对象赋给变量dic;这是最常用的一句代码,也就是所谓的“后期绑定”
For i = Range("B65536")End(3)Row To 1 Step -1 '从B列的最后一行到第一行依次递减,如果是从第一行到最后一行递增,则会因为删除行而跳过很多行,达不到去重效果
If dicexists(Cells(i, "B")Value) Then '如果B列中的数据已经在字典中了(也就是重复了)
Rows(i)Delete '就删除这一行
Else
dic(Cells(i, "B")Value) = "" '否则就把B列的数据放入字典中
End If
Next i
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)