excel表如何快速删除重复行

1.EXCEL表格怎样删除相同的行?

excel对重复值操作的方法比较多，常见的有以下几种：

1. 条件格式：选中源数据区域-->；开始-->；条件格式-->；新建规则-->；对于唯一值或重复值设置格式-->；格式-->；选择一种填充色-->；确定，操作完成后，源数据区域所有的重复数据便被标记上了颜色。此方法的优点是源数据区域可以是一个跨行列的数组区域。

2. “删除重复项”功能：数据-->；删除重复项-->；以当前选定区域排序-->；确定。此方法可以方便快捷的保留非重复数据，但是仅限于单列操作。

3. 公式法：辅助列输入公式=countif(A1:A10,A1:A10)下拉，然后筛选公式值为1的列。

4. VBA法：输入如下代码：

1

2

3

4

5

6

7

8

9

Sub tst()

Dim cel1 As Range

Dim cel2 As Range

For Each cel1 In UsedRange

For Each cel2 In UsedRange

If cel1 = cel2 And cel1.Row > cel2.Row Then cel2.Interior.ColorIndex = 20

Next

Next

End Sub

2.Excle中如何删除两个表中相同的行(附件)

操作步骤： 1、打开Excel文件，按“Alt+F11”进入VBE编辑环境； 2、“插入”-》“模块”； 3、在右侧的代码编辑区域粘贴以下代码： Option Explicit Sub mark_rept() Application。

ScreenUpdating = False Dim k As Range, c As Range, rngSource As Range Dim strAdd As String With Sheets("sheet2") 。Cells。

Interior。ColorIndex = xlNone Set rngSource = Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) End With With Sheets("sheet1") 。 Cells。

Interior。ColorIndex = xlNone For Each k In Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) Set c = rngSource。Find(k, LookIn:=xlValues) If Not c Is Nothing Then strAdd = c。

Address Do Range(c, c。Offset(0, 4))。

Interior。Color = RGB(Int((254 * Rnd)), Int((254 * Rnd)), Int((254 * Rnd))) Range(k, k。

Offset(0, 4))。Interior。

Color = RGB(Int((254 * Rnd)), Int((254 * Rnd)), Int((254 * Rnd))) Set c = rngSource。FindNext(c) Loop While Not c Is Nothing And c。

Address strAdd End If Next End With Application。ScreenUpdating = True End Sub Sub delt_rept() Application。

ScreenUpdating = False Dim a As Range, b As Range With Sheets("sheet1") For Each a In Range(。 [A1], 。

Cells(。[A1]。

End(xlDown)。Row, 1)) If a。

Interior。ColorIndex xlNone Then Range(a, a。

Offset(0, 4))。Delete Shift:=xlUp Next End With With Sheets("sheet2") For Each b In Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) If b。Interior。

ColorIndex xlNone Then Range(b, b。Offset(0, 4))。

Delete Shift:=xlUp Next End With Application。 ScreenUpdating = True End Sub 4、关闭VBE，返回Excel表格界面，添加两个文本框，分别右键指定宏，如附件所示。

使用时，先按“标记重复数据”把重复的数据用背景色标记出来，然后使用“删除重复数据”来删除这些数据。 由于删除数据时记录指针会随着数据的删除而产生偏差，所以点击一次按钮只能删除部分重复数据，可以多次点击以完成删除工作。

特别提醒，使用前注意留一份备份，以防出现意外情况时不至于造成不必要的损失，养成好的备份习惯，有利于保护数据的完整和安全。 祝好~~ 。

3.Excle中如何删除两个表中相同的行(附件)在Excle表格中有

操作步骤： 1、打开Excel文件，按“Alt+F11”进入VBE编辑环境； 2、“插入”-》“模块”； 3、在右侧的代码编辑区域粘贴以下代码： Option Explicit Sub mark_rept() Application。

ScreenUpdating = False Dim k As Range, c As Range, rngSource As Range Dim strAdd As String With Sheets("sheet2") 。Cells。

Interior。ColorIndex = xlNone Set rngSource = Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) End With With Sheets("sheet1") 。 Cells。

Interior。ColorIndex = xlNone For Each k In Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) Set c = rngSource。Find(k, LookIn:=xlValues) If Not c Is Nothing Then strAdd = c。

Address Do Range(c, c。Offset(0, 4))。

Interior。Color = RGB(Int((254 * Rnd)), Int((254 * Rnd)), Int((254 * Rnd))) Range(k, k。

Offset(0, 4))。Interior。

Color = RGB(Int((254 * Rnd)), Int((254 * Rnd)), Int((254 * Rnd))) Set c = rngSource。FindNext(c) Loop While Not c Is Nothing And c。

Address strAdd End If Next End With Application。ScreenUpdating = True End Sub Sub delt_rept() Application。

ScreenUpdating = False Dim a As Range, b As Range With Sheets("sheet1") For Each a In Range(。 [A1], 。

Cells(。[A1]。

End(xlDown)。Row, 1)) If a。

Interior。ColorIndex xlNone Then Range(a, a。

Offset(0, 4))。Delete Shift:=xlUp Next End With With Sheets("sheet2") For Each b In Range(。

[A1], 。Cells(。

[A1]。End(xlDown)。

Row, 1)) If b。Interior。

ColorIndex xlNone Then Range(b, b。Offset(0, 4))。

Delete Shift:=xlUp Next End With Application。 ScreenUpdating = True End Sub 4、关闭VBE，返回Excel表格界面，添加两个文本框，分别右键指定宏，如附件所示。

使用时，先按“标记重复数据”把重复的数据用背景色标记出来，然后使用“删除重复数据”来删除这些数据。 由于删除数据时记录指针会随着数据的删除而产生偏差，所以点击一次按钮只能删除部分重复数据，可以多次点击以完成删除工作。

特别提醒，使用前注意留一份备份，以防出现意外情况时不至于造成不必要的损失，养成好的备份习惯，有利于保护数据的完整和安全。 祝好~~ 。

4.Excel2007中如何筛选唯一值或删除重复值

但它们差别仍很大：筛选唯一值时，将临时隐藏重复的值，但删除重复值时，则会永久删除重复值。 重复值是行中的所有值与另一个行中的所有值完全匹配的值。重复值是由单元格中显示的值确定的，它不必是存储在单元格中的值。例如，如果不同的单元格中有相同的日期值，一个格式为“3/8/2006”，另一个的格式为“Mar 8, 2006”，则值是唯一的。 最好先筛选唯一值，以便在删除重复值之前确认结果是所需的。 筛选唯一值 1、选择单元格区域，或确保活动单元格在一个表中。 2、在“数据”选项卡上的“排序和筛选”组中，单击“高级”。排序和筛选 3、在“高级筛选”对话框中，请执行下列操作之一： 1）若要就地筛选单元格区域或表，请单击“在原有区域显示筛选结果”。 2）若要将筛选结果复制到另一个位置，请执行以下操作： ·单击“将筛选结果复制到其他位置”。 ·在“复制到”框中，输入单元格引用。 也可以单击“压缩对话框”

以临时隐藏对话框，在工作表上选择单元格以后，再按“展开对话框”

4、选中“选择不重复的记录”复选框，然后单击“确定”。 所选区域中的唯一值将复制到新位置。 删除重复值 删除重复值时，只有单元格区域或表中的值会受影响。在单元格区域或表以外的其他任何值都不会更改或移动。 注意 由于要永久删除数据，因此最好在删除重复值之前，先将原始单元格区域或表复制到另一个工作表或工作簿。 1、选择单元格区域，或确保活动单元格在一个表中。 2、在“数据”选项卡上的“数据工具”组中，单击“删除重复项”。删除重复项 3、请执行下列一项或多项操作： ·在“列”下，选择一个或多个列。 ·若要快速选中所有列，请单击“全选”。 ·若要快速清除所有列，请单击“取消全选”。 如果单元格区域或表包含很多列，并且您只想选择几个列，您会发现更容易的做法是单击“取消全选”，然后在“列”下面选择这些列。 4、单击“确定”。 将显示一条消息，指示删除了多少重复值，以及保留了多少唯一值，或者是不是没有删除重复值。 5、单击“确定”。

5.怎么把两张excel表格中重复的数据删除,比如总表一,还有表二,如何

用VLOOKUP，方法：

1. 先把表1的所有数据相连接起来（如你有A~H栏），在A栏前插入一栏，A1=B1&C1&D1&E1&F1&G1&H1&I1---然后下拉公式，在表2也用同样方法

2. 再在公式这栏前再插入一栏，A1=VLOOKUP(B:B，表2!B:B,1,0) （说明：第一项内容填的是用公式本表的条件栏，我们把内容相加起来的目的就是想把条件做成一模一样，第二项填对表的条件栏，也就是表2的相加内容，第三项填1，填1的意思是我们只是套表2的1栏内容过来，第四项填0）

3. 用完公式后把公式下拉填满，出现有数据的是和表2一样的内容，出现#N/A的是与表2不一样的内容（说明：因我们是把A~H相加起来，只要有其中一个单元格的内容不一样，都不会套出数据的。）

6.excel里面怎么把重复的公式删除快捷键是什么

xcel快捷键如下： 在工作表中移动和滚动向上、下、左或右移动单元格箭头键 移动到当前数据区域的边缘：CTRL+ 箭头键 移动到行首：HOME 移动到工作表的开头：CTRL+HOME 移动到工作表的最后一个单元格。

：CTRL+END 向下移动一屏：PAGE DOWN 向上移动一屏：PAGE UP 向右移动一屏：ALT+PAGE DOWN 向左移动一屏：ALT+PAGE UP 移动到工作簿中下一个工作表：CTRL+PAGE DOWN 移动到工作簿中前一个工作表：CTRL+PAGE UP 移动到下一工作簿或窗口：CTRL+F6 或 CTRL+TAB 移动到前一工作簿或窗口：CTRL+SHIFT+F6 移动到已拆分工作簿中的下一个窗格：F6 移动到被拆分的工作簿中的上一个窗格：SHIFT+F6 滚动并显示活动单元格：CTRL+BACKSPACE 显示“定位”对话框：F5 显示“查找”对话框：SHIFT+F5 重复上一次“查找”操作：SHIFT+F4 在保护工作表中的非锁定单元格之间移动：TAB 处于END模式时在工作表中移动 打开或关闭 END 模式：END 在一行或列内以数据块为单位移动：END， 箭头键 移动到工作表的最后一个单元格.：END, HOME 在当前行中向右移动到最后一个非空白单元格。：END, ENTER 处于“滚动锁定”模式时在工作表中移动 打开或关闭滚动锁定：SCROLL LOCK 移动到窗口中左上角处的单元格：HOME 移动到窗口中右下角处的单元格：END 向上或向下滚动一行：上箭头键或下箭头键 向左或向右滚动一列：左箭头键或右箭头键 用于预览和打印文档 显示“打印”对话框：CTRL+P 在打印预览中时： 当放大显示时，在文档中移动：箭头键 当缩小显示时，在文档中每次滚动一页：PAGE UP 当缩小显示时，滚动到第一页：CTRL+上箭头键 当缩小显示时，滚动到最后一页：CTRL+下箭头键 用于工作表、图表和宏 插入新工作表：SHIFT+F11 创建使用当前区域的图表：F11 或 ALT+F1 显示“宏”对话框：ALT+F8 显示“Visual Basic 编辑器”：ALT+F11 插入 Microsoft Excel 4.0 宏工作表：CTRL+F11 移动到工作簿中的下一个工作表：CTRL+PAGE DOWN 移动到工作簿中的上一个工作表：CTRL+PAGE UP 选择工作簿中当前和下一个工作表：SHIFT+CTRL+PAGE DOWN 选择当前工作簿或上一个工作簿：SHIFT+CTRL+PAGE UP 选择图表工作表 选择工作簿中的下一张工作表：CTRL+PAGE DOWN 选择工作簿中的上一个工作表：CTRL+PAGE UP,END, SHIFT+ENTER 用于在工作表中输入数据 完成单元格输入并在选定区域中下移：ENTER 在单元格中折行：ALT+ENTER 用当前输入项填充选定的单元格区域：CTRL+ENTER 完成单元格输入并在选定区域中上移：SHIFT+ENTER 完成单元格输入并在选定区域中右移：TAB 完成单元格输入并在选定区域中左移：SHIFT+TAB 取消单元格输入：ESC 删除插入点左边的字符，或删除选定区域：BACKSPACE 删除插入点右边的字符，或删除选定区域：DELETE 删除插入点到行末的文本：CTRL+DELETE 向上下左右移动一个字符：箭头键 移到行首：HOME 重复最后一次操作：F4 或 CTRL+Y 编辑单元格批注：SHIFT+F2 由行或列标志创建名称：CTRL+SHIFT+F3 向下填充：CTRL+D 向右填充：CTRL+R 定义名称：CTRL+F3 设置数据格式 显示“样式”对话框：ALT+' （撇号） 显示“单元格格式”对话框：CTRL+1 应用“常规”数字格式：CTRL+SHIFT+~ 应用带两个小数位的“贷币”格式：CTRL+SHIFT+$ 应用不带小数位的“百分比”格式：CTRL+SHIFT+% 应用带两个小数位的“科学记数”数字格式：CTRL+SHIFT+^ 应用年月日“日期”格式：CTRL+SHIFT+# 应用小时和分钟“时间”格式，并标明上午或下午：CTRL+SHIFT+@ 应用具有千位分隔符且负数用负号 （-） 表示：CTRL+SHIFT+！ 应用外边框：CTRL+SHIFT+& 删除外边框：CTRL+SHIFT+_ 应用或取消字体加粗格式：CTRL+B 应用或取消字体倾斜格式：CTRL+I 应用或取消下划线格式：CTRL+U 应用或取消删除线格式：CTRL+5 隐藏行：CTRL+9 取消隐藏行：CTRL+SHIFT+（ 左括号 隐藏列：CTRL+0（零） 取消隐藏列：CTRL+SHIFT+）右括号 编辑数据 编辑活动单元格并将插入点放置到线条末尾：F2 取消单元格或编辑栏中的输入项：ESC 编辑活动单元格并清除其中原有的内容：BACKSPACE 将定义的名称粘贴到公式中：F3 完成单元格输入：ENTER 将公式作为数组公式输入：CTRL+SHIFT+ENTER 在公式中键入函数名之后，显示公式选项板：CTRL+A 在公式中键入函数名后为该函数插入变量名和括号：CTRL+SHIFT+A 显示“拼写检查”对话框。

：F7 键 插入、删除和复制选中区域 复制选定区域：CTRL+C 剪切选定区域：CTRL+X 粘贴选定区域：CTRL+V 清除选定区域的内容：DELETE 删除选定区域：CTRL+ 连字符 撤消最后一次操作：CTRL+Z 插入空白单元格：CTRL+SHIFT+ 加号 在选中区域内移动 在选定区域内由上往下移动：ENTER 在选定区域内由下往上移动：SHIFT+ENTER 在选定区域内由左往右移动：TAB 在选定区域内由右往左移动：SHIFT+TAB 按顺时针方向移动到选定区域的下一个角。