判断B列数据在A列中是否有相同

woailijiao

有两列数据，判断B列数据在A列中是否有相同，并在B列后面一列标注“有”，并将重复的姓名提取到I列

shiruiqiang

Sub text()
Dim arr, brr, crr
Dim dic, key
Dim x, i, k
Set dic = CreateObject("scripting.dictionary")
arr = Range("c1:c21")
For x = 2 To UBound(arr)
key = arr(x, 1)
dic(key) = ""
Next

brr = Range("e1:f30")
ReDim crr(1 To 199, 1 To 1)
For i = 2 To UBound(brr)
key = brr(i, 1)
If dic.exists(key) Then
brr(i, 2) = "óD"
k = k + 1
crr(k, 1) = key
End If
Next
Range("e:e").NumberFormat = "@"
Range("i:i").NumberFormat = "@"
Range("e1:f30") = brr
Range("i2").Resize(k, 1) = crr
End Sub

gwjkkkkk

请楼主参考附件。。。

woailijiao

gwjkkkkk 发表于 2022-12-8 19:05
请楼主参考附件。。。

你好，老师！我发现出来的始终有3列，E列会被重新覆盖一遍，我调整输出到N列。发现会输出3列，怎么改可以只显示一列，“有”的那一列数据啊？

gwjkkkkk

简单修改了一下，如回复有用，请别忘 评分。。。

woailijiao

gwjkkkkk 发表于 2022-12-8 20:45
简单修改了一下，如回复有用，请别忘 评分。。。

老师，一直都在评分的呢！今天分数用完，明天补评！
请问老师，那个第二个需求，相同重复输出那个怎么改单独输出？

gwjkkkkk

代码已注释，应该比较容易理解，二个问题都解决了。。。