想写一个查找某种颜色的宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

在一个excel表中，按不同的变量筛选异常数据，比如按第一列的指标算，有4个异常值；按第二列算，又有3个；不同列选出的异常值并不一样，那么我先按不同的列找出异常值后，在各列中标记出黄色，然后我想用一个宏把左右的异常值找出。
思路就是，逐行进行扫描，只要这一行有一个单元格为黄色，则这一行全部标记为绿色。做了简单的一个宏，但运行不出来，请高手指点。



Sub 查找颜色()
'' 查找颜色 宏
LastRow = Range("A65536").End(xlUp).Row
k = 6                       '假设第k列有0值，需要检测
For i = k To LastRow
    If Cells(i, k).Interior.ColorIndex = 8 Then     '红3 绿4 蓝5 黄6 紫7 青8 灰16
     Cells(i, k).Resize(1, 11).Interior.ColorIndex = 4  '红3 绿4 蓝5 黄6 紫7 青8 灰16
    End If
Next i
'
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：interior Excel表 astro Cells Index excel 黄色 检测 左右

用宏做了一堆答案，都是颜色标记，怎么快速查找这些颜色呢？

周永辉 发表于 2021-10-30 21:27
用宏做了一堆答案，都是颜色标记，怎么快速查找这些颜色呢？

好像查.interior.pattern就可以了，无底色是-4142，有色是1？多试试验证吧