对比筛选显示单一结果，请求用VBA代码帮助完成,精确匹配

苍海一粟

       Sheet1 D4单元格以下内容与Sheet2 F2单元格以下内容任意一个单元内容相同，则在H2单元格内显示相同值，如有多个相同则显示出现次数最多的，如出现次数相同则显示第一次出现的相同值。



Sheet1 D4单元格以下内容不限定这部分
Sheet2 F2单元格以下内容同样有可能增加
请求用VBA代码帮助完成

3190496160

是要完全匹配还是模糊匹配呢？？？？？？？？？？？？？

苍海一粟

3190496160 发表于 2020-9-27 16:06
是要完全匹配还是模糊匹配呢？？？？？？？？？？？？？

是精确匹配

苍海一粟

请问哪位大侠能给我看看并写一下代码，函数公式我会。

苍海一粟

还没有审核通过？

苍海一粟

现在发贴和回复都要通过审核才能发吗？

yjh_27

这个简单，双重循环比对即可。

苍海一粟

yjh_27 发表于 2020-9-28 10:28
这个简单，双重循环比对即可。

设了一个，但总提示有误。
Sub 查找相同单元格()
Dim x%, y%, rng1 As Range, rng2 As Range
rng1 = Worksheets("sheet1").Range("aa", x)
rng2 = Worksheets("sheet2").Range("d", y)
x = x + 1
y = y + 1
For x = 18 To 36
   For y = 3 To 71
     If rng1 = rng2 Then
        Range("z37") = rng1
     End If
   Next
Next
End Sub

苍海一粟

设了一个，但总提示有误。
Sub 查找相同单元格()
Dim x%, y%, rng1 As Range, rng2 As Range
rng1 = Worksheets("sheet1").Range("aa", x)
rng2 = Worksheets("sheet2").Range("d", y)
x = x + 1
y = y + 1
For x = 18 To 36
    For y = 3 To 71
      If rng1 = rng2 Then
         Range("z37") = rng1
      End If
    Next
Next
End Sub

flyfairy

看起来嵌套字典比较容易实现.