作业帮 > 综合 > 作业

如何在EXCEL的两列数据里找出相同的数以及相同的个数?

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 12:31:45
如何在EXCEL的两列数据里找出相同的数以及相同的个数?
A列:
1 2 4 10 11
5 12 16 17 22
6 15 16 17 20
B列
1 2 5 10 18
5 7 12 17 21
6 10 17 18 19
A列第一行与B列第一行相比较,有1;2;10三个数是相同的;A列第二行与B列第二行相比较,有5,12,17三个数是相同的;A列第三行与B列第三行相比较,有6;17两个数是相同的;请问如何设置公式,使得这个表里可以自动比较这两列,并将相同的数显示出来?甚至可以显示出是3个相同或两个相同?
如何在EXCEL的两列数据里找出相同的数以及相同的个数?
Sub compare()Dim r As Worksheet, a() As String, b() As String, intcount As Integer, strtemp As StringSet r = Sheets("sheet1")For i = 2 To r.UsedRange.Rows.Count a() = Split(r.Cells(i, 1), Chr(32), -1) b() = Split(r.Cells(i, 2), Chr(32), -1)intcount = 0    For m = 0 To UBound(a()) - 1        For n = 0 To UBound(b()) - 1            If a(m) = b(n) Then                If intcount = 0 Then                    strtemp = a(m)                Else                    strtemp = strtemp & " " & a(m)                End If                intcount = intcount + 1                Exit For            End If                        Next n    Next mr.Cells(i, 3) = strtempr.Cells(i, 4) = intcountNext iEnd Sub'打开EXCEL时按下ALT+F11键,在左边右击新建一个模块,将上面代码复制过去运行一下就可以了.