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],...全部
操作步骤：
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表格界面，添加两个文本框，分别右键指定宏，如附件所示。
使用时，先按“标记重复数据”把重复的数据用背景色标记出来，然后使用“删除重复数据”来删除这些数据。
由于删除数据时记录指针会随着数据的删除而产生偏差，所以点击一次按钮只能删除部分重复数据，可以多次点击以完成删除工作。
特别提醒，使用前注意留一份备份，以防出现意外情况时不至于造成不必要的损失，养成好的备份习惯，有利于保护数据的完整和安全。
祝好~~
。收起
