今天看到个帖子，有朋友想对不同底色的单元格进行数据计算，今天分享一个判断单元格底色的方法
工具/原料
excel2010
方法/步骤
1、打开一个我们设置好单元格颜色的文件
2、然后我们按AIL+F11进入VBA编辑页面
3、选择模块，如图
4、单击鼠标右键，选择插入选项在选择模块，如图
5、得到如图效果
6、在右侧将如下代码写入：Subtext()Dimarr,i%,d,j咯悝滩镞Dimbrr()Setd=CreateObject("s艘早祓胂cripting.dictionary")arr=Sheet3.Range("A1").CurrentRegionFori=1ToUBound(arr)j=Sheet3.Cells(i,1).Interior.ColorIndexd(j)=arr(i,2)NextFori=1To56ReDimPreservebrr(i-1)j=Cells(i,1).Interior.ColorIndexbrr(i-1)=d(j)NextRange("B1").Resize(56,1)=Application.Transpose(brr)EndSub
7、按F5键是的代码运行，再回表格页面得到如图效果
8、说明：在使用代码前，一定要启用宏才行，