请教老师，如何用VBA,把多列中的相同数查找出来，谢谢！

cartel · 发表于 2022-11-21 14:47

请教老师，如何用VBA,把多列中的相同数查找出来，谢谢！.zip (9.35 KB, 下载次数: 10)

笨鸟飞不高 · 发表于 2022-11-21 15:05

请教老师，如何用VBA,把多列中的相同数查找出来，谢谢！.zip (14.94 KB, 下载次数: 3)

清风竹- · 发表于 2022-11-21 15:20

请看附件。

笨鸟飞不高 · 发表于 2022-11-21 15:27

请教老师，如何用VBA,把多列中的相同数查找出来，谢谢！.zip (16.75 KB, 下载次数: 8)

gwjkkkkk · 发表于 2022-11-21 19:12

Sub TEST6()
Dim arr, brr, i&, R&, dic As Object
Application.ScreenUpdating = False
Set dic = CreateObject("Scripting.Dictionary")
arr = [B1].CurrentRegion.Resize(, 2)
ReDim brr(1 To UBound(arr))
For i = 1 To UBound(arr): dic(arr(i, 1)) = "": Next
For i = 1 To UBound(arr)
   If dic.exists(arr(i, 2)) Then
      R = R + 1
      brr(R) = arr(i, 2)
   End If
Next i
[D1].Resize(R) = Application.Transpose(brr)
Set dic = Nothing
Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2022-11-21 19:26

请参考附件。。。

Hontyu · 发表于 2022-11-21 21:04

本帖最后由 Hontyu 于 2022-11-21 21:05 编辑

...............

		自动登录	找回密码
密码			免费注册

[求助] 请教老师，如何用VBA,把多列中的相同数查找出来，谢谢！

评分

评分

评分

评分

评分