如何删除Excel里的相同的内容？

在Excel中有一个功能是“高亮度显示重复项”，只需使用这个功能即可标记出重复数据了，再将重复数据筛选出来删除即可，具体操作步骤如下：
　　1.选中需删除重复项的单元格。
　　2.点击工具栏中的"数据"一栏，选择"重复项"。
　　3.在弹出来的选项中选择“高亮度显示重复项”，然后点击“设置”，最后按“确定”。
　　4. 这时重复的数据背景就会自动被填充成其它颜色，再通过“筛选"功能中的"颜色筛选"功能，将背景为填充色的单元格过滤。
5.选中所有筛选后的数据，点击“delete”键即可。

第一步：对姓名一项 进行高级筛选

选中姓名列 －－数据－－筛选 －－高级筛选－－选择不 重复的记录－－ 复制到 另一表格 a列(假设原表sheet1,姓名在a列 数据在a:l列 ，新表sheet2）

第二步： vlookup函数

在 sheet2 b1输入
=vlookup(a1,sheet1!$a:$m,column(),false)
鼠标移到b1 右下角 变成实心十字时 右拉， 然后下拉

只会为你保留一个 ，决不重复

如果你的关键字 是企业， 那么请将 企业放在a列（ sheet1和sheet2都放在a列）

或者 一步 最最简单的：

选中全部－－－数据－－筛选－－高级筛选－－－选择不重复的记录－－复制到 另外一个表格

楼主，我回答过跟您问题相类似的删除重复行的例子，现将vba代码再发过来，您只需要按一个键，所有重复的就会被清掉。

dim i as long
dim j as long
dim k as long
dim c as integer
k = range("a65536").end(xlup).row
i = 2
do while i <= k
For j = 1 to i - 1
c = 0
if cells(i, 1).value = cells(j, 1).value then
c = c + 1
end if
if cells(i, 2).value = cells(j, 2).value then
c = c + 1
end if
if cells(i, 3).value = cells(j, 3).value then
c = c + 1
end if
if cells(i, 4).value = cells(j, 4).value then
c = c + 1
end if
if cells(i, 5).value = cells(j, 5).value then
c = c + 1
end if
if c = 5 then
activesheet.rows(i).entirerow.delete
i = i - 1
k = k - 1
exit For
end if
next j
i = i + 1
loop

以上代码，是检查abcde五列每一行的值，所有第二个完全相同的就会被删除.

上述代码使用方法如下:

录制宏:菜单"工具"->宏->录制宏)--> "宏名"处给宏取名字->设定快捷键,"快捷键"下面输入一个字母-->确定后开始录制宏。

编辑宏:开始录制后即可直接按停止键, 然后编辑宏(工具->宏->宏(m)->选择刚建那个宏->点右边的"编辑"按钮-->进入宏编辑界面-->删除SUb xxx 至 end SUb之间所有内容-->然后粘贴上述程序代码-->按工具栏上的"保存"按钮-->"文件"菜单-->关闭并反回micorsoft Excel

执行宏: 按刚刚设定的快捷键(ctrl+那个字母), 或者通过菜单"工具"-->宏-->宏(m)-->窗口上选宏名, 按"执行"按钮执行宏.

楼主，如果仍有关于这段代码的使用问题，请hi我。

工具/原材料

Excel2016、电脑。

1、打开电脑找到并点击Excel2016版的软件；

2、打开Excel软件以后，为了更好的示范，先在文档内新建并选中有重复项的内容；

3、选中需要删除重复的内容以后，在点击上方工具栏的“数据”命令；

4、选择数据命令以后，在下方“点击删除重复项”；

5、点击以后，在弹出的对话框中点击“全选”和“删除重复项”；

6、选择并确定好以后，表格上重复的内容已被成功删除，并且保留一项。