使用宏对excel表格进行颜色填充
工具/原料
MicroSoftExcel
方法/步骤
1、把一行中连续出现三次以上的的表格进行填充为黄色,如下图的L3,L11,M11。
2、进入宏编辑器,将以下代码翱务校肢复制进去,然后执行。SubFillRed()DimiAsIntegerDimjAsIntegerFori=2To1200'着抹较氰控制行范围Forj=10To100'控制列范围IfActiveSheet.Cells(i,j).Value<>""ThenIfActiveSheet.Cells(i,j+1).Value<>""ThenIfActiveSheet.Cells(i,j+2).Value<>""ThenActiveSheet.Cells(i,j+2).Interior.ColorIndex=3EndIfEndIfEndIfNextjNextiEndSub
3、效果如下图所示