怎样用宏实现任意选取单元格，则有相同值的另外单元格用颜色添充？

hello70

在一个工作表中，运行宏，任意选取一个单元格，假如这个单元格的值为8，那么所有值为8的单元格都用红色填充，然后再点取另外单元格，假如单元格的值为5，那么所有值为8的单元格的红色消失，所有值为5的单元格都用红色填充。怎样用宏实现？谢谢！

来生缘

Randomize Cells(Int(Rnd() * 10 + 1), Int(Rnd() * 10 + 1)).Select Dim rng As Range For Each rng In Range("A1:E13") If rng = Selection Then rng.Interior.ColorIndex = 3 Else rng.Interior.ColorIndex = 0 End If Next

hello70

mwlTIMnA.rar (12.28 KB, 下载次数: 34)

2005-7-27 23:52 上传

点击文件名下载附件
怎样用宏实现任意选取单元格，则有相同值的另外单元格用颜色添充？

如果在sheet1中点A57，那么立博都变为红色，这段宏没有实现目的。

hello70

这是我改的宏，可以达到目的，但有一定的范围限制，不知道如何解决。

Sub Macro1() Sheet1.Activate rng = Selection.Value Dim T As Range

For Each T In Range("A1:W75") If rng = T Then T.Interior.ColorIndex = 3 Else T.Interior.ColorIndex = 0 End If Next

End Sub For Each T In Range("A1:W75")就不能改成For Each T In Range("A1:W100")，为什么？

hello70

只要行的范围大于75（把Range("A1:W75")改成Range("A1:W76")，就出现下面错误提示

运行时错误，'13'

类型不匹配

请高手指点，怎样解决？

ch18812638

有用👍