[已解决]excel如何对比两个单元格的内容，如果两个单元格内容有两个或两个以上相同就返回一...

mikezhang

如图，两个单元格对比，如果两个单元格的相同数据个数超过两个或两个以上就返回一个固定值，例如，B3和E1对比，如果有两个或两个以上相同的就返回一个值”A1“，怎么做啊？跪求大神解决。谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-17 22:06

Dim dic As Object

'主程序
Sub test1()
    Dim A, B, i%, j%, k%, s%, AreaName$, AreaStart%
    A = Sheets(1).UsedRange
    Set dic = CreateObject("scripting.dictionary")

    For i = 3 To UBound(A)
        For j = 4 To UBound(A, 2)
            '更新区名（AreaName）和区名所在列（AreaStart）
            If Len(A(1, j)) = 2 Then AreaName = A(1, j): AreaStart = j
            '如果B列有数据，并不是区名所在列
            If A(i, 2) <> "" And Len(A(1, j)) > 2 Then
                dic.RemoveAll: s = 0
                Call test2(A(i, 2))
                Call test2(A(1, j))
                B = dic.items

                '统计大于1次的数字的数量（s）
                For k = 0 To UBound(B)
                    If B(k) > 1 Then s = s + 1
                Next k

                '如果数量>1，就显示编号（区名+列），否则显示为空
                If s > 1 Then A(i, j) = Left(AreaName, 1) & j - AreaStart Else A(i, j) = ""
            End If
        Next j
    Next i

    Sheets(1).Range("a1").Resize(i - 1, j - 1) = A
End Sub

'重复的操作：统计每个数字出现的次数
Sub test2(x)
    Dim B, i
    B = VBA.Split(x, ",")
    For i = 0 To UBound(B)
        dic(B(i)) = dic(B(i)) + 1
    Next i
End Sub
(, 下载次数: 6)

上传

点击文件名下载附件


照1楼意思改了，下电脑了。

跳转到最佳答案楼层

爱疯

B3和E1对比，如果有两个或两个以上相同的就返回一个值”A1“，

A1是什么含义？
如果不满足将怎样？

mikezhang

爱疯 发表于 2015-12-17 09:21
B3和E1对比，如果有两个或两个以上相同的就返回一个值”A1“，

A1是什么含义？

A1是自己随便指定的一个值，如果不满足条件就什么都不用显示，就是为空。

爱疯

建议上传附件，否则别人不好回复

mikezhang

爱疯 发表于 2015-12-17 16:29
建议上传附件，否则别人不好回复

你有QQ吗？我加你QQ说，真急死我了。

爱疯

如果有不便公开的内容，可先替换或删除一下。

还是上传附件吧，发在论坛上会得到更快、更好的回复。我不一定有空。。。

mikezhang

爱疯 发表于 2015-12-17 16:45
如果有不便公开的内容，可先替换或删除一下。

还是上传附件吧，发在论坛上会得到更快、更好的回复。我不 ...

就是这个。麻烦大神帮帮忙啊。

mikezhang

mikezhang 发表于 2015-12-17 16:48
就是这个。麻烦大神帮帮忙啊。

在Sheet1那个表里

爱疯

两码差.rar (37.25 KB, 下载次数: 5)

2015-12-17 17:20 上传

点击文件名下载附件

结果是这样子吗

mikezhang

爱疯 发表于 2015-12-17 17:20
结果是这样子吗

不对啊，我的意思是说一个单元格和一个单元格对比，如果两个单元格的相同数字有两个或两个以上的返回一个指定值。你这个做的有两个或两个以上相同的值也返回0，没有也返回0啊