[已解决]如何将C-G中全部相同数值用红色标记出来

zhouxingyu

标记相同.zip (12.62 KB, 下载次数: 9)

2016-3-30 09:57 上传

点击文件名下载附件

哪位老师帮忙,详见附件!非常感谢!

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-30 11:03

Sub test()
    Dim valueDic, addressDic, A, B, C, i, j
    Set valueDic = CreateObject("scripting.dictionary")
    Set addressDic = CreateObject("scripting.dictionary")
    A = Sheet1.UsedRange


    For i = 2 To UBound(A)
        For j = 3 To UBound(A, 2)
            If A(i, j) <> "" Then
                valueDic(A(i, j)) = valueDic(A(i, j)) + 1
                addressDic(A(i, j)) = addressDic(A(i, j)) & "," & Cells(i, j).Address
            End If
        Next j
    Next i


    A = valueDic.items
    B = addressDic.items
    Cells.Font.ColorIndex = 0
    For i = 0 To UBound(A)
        If A(i) > 1 Then
            C = VBA.Split(B(i), ",")
            For j = 1 To UBound(C)
                Range(C(j)).Font.ColorIndex = 3    '指定字体颜色，3是红色
            Next j
        End If
    Next i
End Sub

标记相同2.rar (13.32 KB, 下载次数: 11)

2016-3-30 11:01 上传

点击文件名下载附件

自己去写的效果，通常都比条件格式慢些。
我这是老实的做法

跳转到最佳答案楼层

baksy

附件

爱疯

是这样的结果吗？

zhouxingyu

baksy 发表于 2016-3-30 10:11
附件

用的是条件格式?
如果数值很多,用条件格式很影响速度,能否用代码实现?非常感谢!

zhouxingyu

爱疯 发表于 2016-3-30 10:15
是这样的结果吗？

多谢版主回复.
不过我希望用VBA代码来实现.

zhouxingyu

爱疯 发表于 2016-3-30 10:15
是这样的结果吗？

爱版能否将贴子移回『Excel VBA程序开发』谢谢!

爱疯

Sub test()
    Dim valueDic, addressDic, A, B, C, i, j
    Set valueDic = CreateObject("scripting.dictionary")
    Set addressDic = CreateObject("scripting.dictionary")
    A = Sheet1.UsedRange


    For i = 2 To UBound(A)
        For j = 3 To UBound(A, 2)
            If A(i, j) <> "" Then
                valueDic(A(i, j)) = valueDic(A(i, j)) + 1
                addressDic(A(i, j)) = addressDic(A(i, j)) & "," & Cells(i, j).Address
            End If
        Next j
    Next i


    A = valueDic.items
    B = addressDic.items
    Cells.Font.ColorIndex = 0
    For i = 0 To UBound(A)
        If A(i) > 1 Then
            C = VBA.Split(B(i), ",")
            For j = 1 To UBound(C)
                Range(C(j)).Font.ColorIndex = 3    '指定字体颜色，3是红色
            Next j
        End If
    Next i
End Sub

标记相同2.rar (13.32 KB, 下载次数: 11)

2016-3-30 11:01 上传

点击文件名下载附件

自己去写的效果，通常都比条件格式慢些。
我这是老实的做法

zhouxingyu

爱疯 发表于 2016-3-30 11:03
Sub test()
    Dim valueDic, addressDic, A, B, C, i, j
    Set valueDic = CreateObject("scripting. ...

达到要求,非常感谢!
再麻烦请教下:题中是C列-G列,假如列是在W列-AA列,代码要在哪里修改?

爱疯

如果AA列是最右边的1列，就照下面方法修改；否则，再说。

    For j = 3 To UBound(A, 2)
    改成
    For j = 23 To UBound(A, 2)

zhouxingyu

爱疯 发表于 2016-3-30 11:25
如果AA列是最右边的1列，就照下面方法修改；否则，再说。

    For j = 3 To UBound(A, 2)

没问题了,非常感谢!