请教老师，用VBA，找出两列的相同个数，并把相同数量值显示出来，谢谢！

cartel

请教老师，用VBA，找出两列的相同个数，并把相同数量值显示出来，谢谢！.zip (9.95 KB, 下载次数: 20)

2022-12-21 14:35 上传

点击文件名下载附件

ykcbf1100

请看附件。

笨鸟飞不高

请教老师，用VBA，找出两列的相同个数，并把相同数量值显示出来，谢谢！.zip (15.6 KB, 下载次数: 8)

2022-12-21 15:04 上传

点击文件名下载附件

lcluck2002

请教老师，用VBA，找出两列的相同个数，并把相同数量值显示出来，谢谢！1221

sdytsxd991122

nicleyuan

1. Sub 没有使用WPS2019()
   
2.     Dim arr, brr, br, cr, x, lastrow, i, j, m
   
3.     lastrow = Cells(65536, 1).End(-4162).Row
   
4.     arr = Range("A1:A" & lastrow)
   
5.     br = Split(Range("b1"))
   
6.     ReDim cr(1 To UBound(arr))
   
7.     For i = 1 To UBound(arr)
   
8.         ar = Split(arr(i, 1), ",")
   
9.         For j = 0 To UBound(br)
   
10.             If Not IsError(Application.Match(ar(j), br, 0)) Then m = m + 1
    
11.         Next
    
12.         cr(i) = m
    
13.         m = 0
    
14.     Next
    
15.     Range("c1").Resize(UBound(cr), 1) = Application.Transpose(cr)
    
16. End Sub

复制代码

nicleyuan

Sub 没有使用WPS2019()
    Dim arr, brr, br, cr, x, lastrow, i, j, m
    lastrow = Cells(65536, 1).End(-4162).Row
    arr = Range("A1:A" & lastrow)
    br = Split(Range("b1"))
    ReDim cr(1 To UBound(arr))
    For i = 1 To UBound(arr)
        ar = Split(arr(i, 1), ",")
        For j = 0 To UBound(br)
            If Not IsError(Application.Match(ar(j), br, 0)) Then m = m + 1
        Next
        cr(i) = m
        m = 0
    Next
    Range("c1").Resize(UBound(cr), 1) = Application.Transpose(cr)
End Sub

dambcer

请 看 图 片

nicleyuan

cartel

各位老师好！
这段时间阳了，没上来！
感谢老们的帮忙与付出！