excel 两个表关联,相同数据删除

发布网友发布时间：2022-04-28 17:32

共3个回答

热心网友时间：2022-06-21 00:52

我写了一段宏,意思是拿aa表内的数据逐个与bb表内比较,如果bb表内有一样的,则删除整行数据,最后留下来的都是AA表中所没有的.
Sub Macro7()
Dim aasz As String
Dim bbsz As String
Dim aahs As Integer
Dim bbhs As Integer
aahs = 1
bbhs = 1
1:
bbhs = 1
Sheets("aa").Select '这里的aa是你第一个表格的名字
aasz = Cells(aahs, 1).Value
2:
If (aasz <> "") Then
Sheets("bb").Select '这里的bb是你第二个表格的名字
bbsz = Cells(bbhs, 1).Value
If (aasz = bbsz) Then
Rows(bbhs).Delete Shift:=xlUp
aahs = aahs + 1
GoTo 1
Else
bbhs = bbhs + 1
If (bbhs < 10) Then '这里的10换成你bb表的总行数
GoTo 2
Else
aahs = aahs + 1
GoTo 1
End If
End If
Else
End If
End Sub
我是菜鸟,如果解题绕了弯路，还请各位给我发个消息教我一下，谢谢！

热心网友时间：2022-06-21 00:53

解决方法：
1、在第二个表中加一个辅助列，输入公式 =COUNTIF（去选定表2中姓名列，A1）只要大于1都是重名的。
2、也可以在辅助列中用下面的公式：=VLOOKUP(A1,去选定表格中两列姓名，2，0）只要显示姓名的就是重名的。

热心网友时间：2022-06-21 00:53

用“vlookup”公式核对之后进行删除