向各位大神请教

zhangbuliang

对比A列出现几次，如果A列出现1次就是显示单身居住，如何出现2次，就对比出现2次的居住方式是否相同，如果不相同就用黄色填充出来

gwjkkkkk

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

gwjkkkkk

zhangbuliang 发表于 2024-9-16 19:14
老师，你好，在吗？再次请教一下，我最后的目的是对比只在居住方式那列显示黄色填充。麻烦你帮忙再设计下 ...

。。。。。。。。。

zhangbuliang

如果A列出现１次，B列出再其他居住方式，也要用黄色填充出来

yfan17

zhangbuliang 发表于 2024-9-13 19:29
如果A列出现１次，B列出再其他居住方式，也要用黄色填充出来

如果A列出现１次，对应的居住方式难道不唯一❓

gwjkkkkk

Option Explicit
Sub TEST9()
    Dim ar, br, i&, j&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With [A1].CurrentRegion
        .Interior.ColorIndex = xlNone
        ar = .Value
        For i = 2 To UBound(ar)
            If Not dic.exists(ar(i, 1)) Then
                Set dic(ar(i, 1)) = CreateObject("Scripting.Dictionary")
            End If
            dic(ar(i, 1))(ar(i, 2)) = i
        Next i
        For Each vKey In dic.keys
            If dic(vKey).Count = 1 Then
                .Cells(dic(vKey).items()(0), 2) = "单身居住"
            Else
                For j = 0 To dic(vKey).Count - 1
                    .Rows(dic(vKey).items()(j)).Interior.Color = vbYellow
                Next j
            End If
        Next
    End With
   
    Set dic = Nothing
    Application.ScreenUpdating = True
End Sub

zhangbuliang

gwjkkkkk 发表于 2024-9-13 20:07
..............

你太厉害了，我的意思是B列出现２次以上，第一次也不要变为单身居住，保持它以前内容即可。这个我是要核对别人填写时是不把一间房有多少居住时把居住方式写错的。麻烦你帮忙再次设计一下，行吗？

zhangbuliang

yfan17 发表于 2024-9-13 19:51
如果A列出现１次，对应的居住方式难道不唯一❓

我是在核对别人填写的内容是否正确，如果以前出现２次，后面删除１次，是不是内容就出现错误了。

zhangbuliang

gwjkkkkk 发表于 2024-9-13 20:07
..............

老师，你好，我已经修改好了。还有一个问题就是，当居住方式在其他列时，要如何修改，修改那些内容，请指教。多谢。

gwjkkkkk

zhangbuliang 发表于 2024-9-13 20:37
老师，你好，我已经修改好了。还有一个问题就是，当居住方式在其他列时，要如何修改，修改那些内容，请指 ...

dic(ar(i, 1))(ar(i, 2)) = i
这里的二改成其他列号即可

zhangbuliang

gwjkkkkk 发表于 2024-9-13 20:43
dic(ar(i, 1))(ar(i, 2)) = i
这里的二改成其他列号即可

谢谢，我试了不行啊。