Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Search and then format by color
I have a column of data that is almost 5000 cells deep. I want to be able to
have the groups of duplicates colored a unique color. For example, if there are 12 cells that have a value of 9231, I want to see that those 12 and only those 12 get colored red. Then, maybe there are 200 cells that have a value of 74; those would all get blue. And so on, such that each group of equal valued cells gets a unqiue color. Can this be done and if so, how? Thanks! It would really help if you could post AND email me an answer at . |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Search and then format by color
Sub GroupColor() Set mondico = CreateObject("Scripting.Dictionary") For Each c In Range("a2", [a65000].End(xlUp)) mondico.Item(c.Value) = mondico.Item(c.Value) + 1 Next c For Each c In Range("a2", [a65000].End(xlUp)) If mondico.Item(c.Value) 1 Then p = Application.Match(c.Value, mondico.keys, 0) c.Interior.ColorIndex = p + 2 End If Next c End Sub http://cjoint.com/?eng7tTxg62 JB http://boisgontierjacques.free.fr/ On 13 avr, 06:22, swimeveryday wrote: I have a column of data that is almost 5000 cells deep. *I want to be able to have the groups of duplicates colored a unique color. *For example, if there are 12 cells that have a value of 9231, I want to see that those 12 and only those 12 get colored red. *Then, maybe there are 200 cells that have a value of 74; those would all get blue. *And so on, such that each group of equal valued cells gets a unqiue color. *Can this be done and if so, how? *Thanks! * It would really help if you could post AND email me an answer at . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't format cell color/text color in Office Excel 2003 in fil | Excel Discussion (Misc queries) | |||
can you search by the color of the font? | Excel Discussion (Misc queries) | |||
Can i search for cells of a particular color | Excel Discussion (Misc queries) | |||
Can search by cell format like fill color? | Excel Worksheet Functions | |||
Can't format cell color/text color in Office Excel 2003 in files . | Excel Discussion (Misc queries) |