如何在EXCEL的两列数据里找出相同的数以及相同的个数?A列:1 2 4 10 115 12 16 17 226 15 16 17 20B列1 2 5 10 185 7 12 17 216 10 17 18 19A列第一行与B列第一行相比较,有1;2;10三个数是相同的;A列第二行与B
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/21 08:55:10
![如何在EXCEL的两列数据里找出相同的数以及相同的个数?A列:1 2 4 10 115 12 16 17 226 15 16 17 20B列1 2 5 10 185 7 12 17 216 10 17 18 19A列第一行与B列第一行相比较,有1;2;10三个数是相同的;A列第二行与B](/uploads/image/z/3928781-29-1.jpg?t=%E5%A6%82%E4%BD%95%E5%9C%A8EXCEL%E7%9A%84%E4%B8%A4%E5%88%97%E6%95%B0%E6%8D%AE%E9%87%8C%E6%89%BE%E5%87%BA%E7%9B%B8%E5%90%8C%E7%9A%84%E6%95%B0%E4%BB%A5%E5%8F%8A%E7%9B%B8%E5%90%8C%E7%9A%84%E4%B8%AA%E6%95%B0%3FA%E5%88%97%EF%BC%9A1+2+4+10+115+12+16+17+226+15+16+17+20B%E5%88%971+2+5+10+185+7+12+17+216+10+17+18+19A%E5%88%97%E7%AC%AC%E4%B8%80%E8%A1%8C%E4%B8%8EB%E5%88%97%E7%AC%AC%E4%B8%80%E8%A1%8C%E7%9B%B8%E6%AF%94%E8%BE%83%2C%E6%9C%891%EF%BC%9B2%EF%BC%9B10%E4%B8%89%E4%B8%AA%E6%95%B0%E6%98%AF%E7%9B%B8%E5%90%8C%E7%9A%84%EF%BC%9BA%E5%88%97%E7%AC%AC%E4%BA%8C%E8%A1%8C%E4%B8%8EB)
如何在EXCEL的两列数据里找出相同的数以及相同的个数?A列:1 2 4 10 115 12 16 17 226 15 16 17 20B列1 2 5 10 185 7 12 17 216 10 17 18 19A列第一行与B列第一行相比较,有1;2;10三个数是相同的;A列第二行与B
如何在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的两列数据里找出相同的数以及相同的个数?A列:1 2 4 10 115 12 16 17 226 15 16 17 20B列1 2 5 10 185 7 12 17 216 10 17 18 19A列第一行与B列第一行相比较,有1;2;10三个数是相同的;A列第二行与B
Sub compare()
Dim r As Worksheet, a() As String, b() As String, intcount As Integer, strtemp As String
Set 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 m
r.Cells(i, 3) = strtemp
r.Cells(i, 4) = intcount
Next i
End Sub
'打开EXCEL时按下ALT+F11键,在左边右击新建一个模块,将上面代码复制过去运行一下就可以了.