excel表中如何将两个表中的号码去掉重复号码
2013-12-06
展开全部
对execl不熟,不过可以用一个比较笨的半自动办法:把第一个表中加一列,所有值都设置成A(这个按住右下角的那个直接拉就行。然后把第二表全部拷贝到第一个表的后边,然后在对应“A“的位置都设置成B,然后对号码那部分排序,这样重复的就挨在一起了,可以删除一个,最后再对AB那一列排序,拷贝出结果就可以了。
2013-12-06
展开全部
1.把表2中的号码全部设为红色然后导入表1
2.然后选择 数据--排序 和表2相同的号码会排在一起
3.然后按CTRL选择和红色重复的 按delete 删除然后排序就可以了
2.然后选择 数据--排序 和表2相同的号码会排在一起
3.然后按CTRL选择和红色重复的 按delete 删除然后排序就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-06
展开全部
用VBA代码,在模块中黏贴下面代码,然后运行
Public Sub 删除()
Dim myrange1 As Range
Dim myrange2 As Range
Dim mycell As Range
Dim ws As Worksheet
Dim i As Long
With Worksheets
Set myrange1 = .Item(1).Range("A1").CurrentRegion.Columns(1)
Set myrange2 = .Item(2).Range("A1").CurrentRegion.Columns(1)
Set ws = .Add(after:=.Item(.Count))
End With
i = 0
For Each mycell In myrange1.Cells
If WorksheetFunction.CountIf(myrange2, mycell.Value) = 0 Then
i = i + 1
mycell.EntireRow.Copy ws.Cells(i, 1)
End If
Next
Set myrange1 = Nothing
Set myrange2 = Nothing
Set mycell = Nothing
Set ws = Nothing
End Sub
Public Sub 删除()
Dim myrange1 As Range
Dim myrange2 As Range
Dim mycell As Range
Dim ws As Worksheet
Dim i As Long
With Worksheets
Set myrange1 = .Item(1).Range("A1").CurrentRegion.Columns(1)
Set myrange2 = .Item(2).Range("A1").CurrentRegion.Columns(1)
Set ws = .Add(after:=.Item(.Count))
End With
i = 0
For Each mycell In myrange1.Cells
If WorksheetFunction.CountIf(myrange2, mycell.Value) = 0 Then
i = i + 1
mycell.EntireRow.Copy ws.Cells(i, 1)
End If
Next
Set myrange1 = Nothing
Set myrange2 = Nothing
Set mycell = Nothing
Set ws = Nothing
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-06
展开全部
复制过来啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询