如何找出重复的条目?
答案:1 悬赏:50 手机版
解决时间 2021-08-19 11:36
- 提问者网友:愿为果
- 2021-08-18 23:04
总共有801个句子,只有两句是重复的,一句一句看也找不出。
最佳答案
- 五星知识达人网友:罪歌
- 2021-08-19 00:23
这个可以通过宏来实现。不知道你有没有用过宏,所以,我先说怎么启用宏。默认情况下,宏是被禁用的。打开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列都相同的数据(区分大小写)并删除至只剩一行(即无重复),考虑到你可能使用空行来使数据更具结构性,因此,这里我设置了不删除空行。由于宏操作不可撤消,请在使用该宏前备份数据。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯