永发信息网

如何找出重复的条目?

答案:1  悬赏:50  手机版
解决时间 2021-08-19 11:36
总共有801个句子,只有两句是重复的,一句一句看也找不出。
最佳答案
这个可以通过宏来实现。不知道你有没有用过宏,所以,我先说怎么启用宏。默认情况下,宏是被禁用的。打开EXCEL,在菜单栏点击“工具”->“宏”->“安全性”,在打开的对话框中,选择“中”或“低”。建议选“中”。下面,写入宏以实现该功能。步骤如下:“工具”->“宏”->“Visual Basic编辑器”,在打开的VB编辑器中左侧有“工程”窗口,在这里的“模块”上点右键,“插入”->“模块”,此时,生成了“模块1”,双击“模块1”,在打开的窗口里写入需要的宏代码。要实现你所需要的功能的宏代码我已经为你写好,代码如下:Sub sub1()ActiveCell.SpecialCells(xlLastCell).Selectdatarows = Selection.RowIf datarows <> 1 ThenFor I = 1 To datarows If Range("A" & CStr(I)) & Range("B" & CStr(I)) & Range("C" & CStr(I)) & Range("D" & CStr(I)) <> "" Then j = datarows Do While j > I If Range("A" & CStr(I)) = Range("A" & CStr(j)) And Range("B" & CStr(I)) = Range("B" & CStr(j)) And Range("C" & CStr(I)) = Range("C" & CStr(j)) And Range("D" & CStr(I)) = Range("D" & CStr(j)) Then Rows(j).Delete Shift:=xlUp datarows = datarows - 1 End If j = j - 1 Loop End IfNext IEnd IfEnd Sub代码写好了,关闭VB编辑器。只要运行该宏就可以实现删除重复的项目的操作。“工具”->“宏” ->“宏”,选中“sub1”,点执行。我写的这个代码实现了如下功能:查找A列B列C列D列都相同的数据(区分大小写)并删除至只剩一行(即无重复),考虑到你可能使用空行来使数据更具结构性,因此,这里我设置了不删除空行。由于宏操作不可撤消,请在使用该宏前备份数据。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
有趣的现代儿童诗歌,关于儿童有趣活泼的古诗
夷陵区宜昌国晏酒店这个地址在什么地方,我要
好想一个人,怎么办……
QQ炫舞上线就出来“服务器被另一个文件使用”
怎样才能把心仪的对象变成要好的朋友?
为什么我的肩膀不宽瘦小?
2010 拽一点的女生非主流网名是哪些类型滴?
心好痛好难受的句子,关于心痛难过的句子
当很累我该怎么办?
武陵区常德夜色酒吧地址在哪里啊
英语语法中常用的缩写都有哪些
我得问问中 我的设置在呢啊
下午2点钟以后,什么时刻分针与时针第一次成直
给几张 这种纸。。或者说说在哪有?
I have never heard the word (used usi
推荐资讯
手机上的WAP网页可以赚钱吗?
古代情书封面怎么写,写情书一般在哪买?信封
巢湖职业技术学院几号开学军训 从蚌埠到那长
有关历史人物吕蒙的成语.
超越梦想是什么意思,GIOBAI是什么意思?
大话3有内蒙古区的吗?别的只要不是地方区也
数学公式里的sin cos tan ctg
森海塞尔PX100 现在什么价格?在哪儿能网购到
我在农行办理了网上银行怎么激活啊
北京外国语大学博士生导师
I wish you s____.(用适当的词语填空)
电化学腐蚀是不是看两种金属中哪种金属的失去
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?