[已解决]如何获取指定颜色的数据

youxinggy

题意没有说清楚啊，附件也没有表达清楚啊

zjdh

1. Sub test()
   
2.     For Each C In ActiveSheet.UsedRange
   
3.         CL = C.Interior.ColorIndex
   
4.         If CL > 0 And C <> "" Then MsgBox C & "的底色代码是： " & CL
   
5.     Next
   
6. End Sub
   

复制代码