Excel 宏代码实现按相同值分组设置背景颜色

Alt+F11，打开编辑器，按如下代码编写代码：

Sub SetGroupBg()Dim i, j, cColors = Array("#CEFFCE", "#D7FFEE", "#D9FFFF", "#C4E1FF", "#DDDDFF", "#FFDAC8", "#FFE4CA", "#FFF4C1", "#FFFFCE", "#E8FFC4")j = UsedRange.Columns.CountFor i = 2 To UsedRange.Rows.CountIf Cells(i, 1) <> Cells(i - 1, 1) Thenc = c Mod UBound(Colors) + 1clr = Application.Hex2Dec(Replace(Colors(c), "#", ""))End IfRange(Cells(i, 1), Cells(i, j)).Interior.Color = clrNext
End Sub

运行代码即可达到预期效果。

代码说明：

定义需要的颜色值；

逐行扫描内容；

根据每行首个单元格式内容是否相同，循环设置背景颜色。

Excel 宏代码实现按相同值分组设置背景颜色相关推荐

WPS：Excel数据表格查询定位技巧之如何设置加重颜色的十字定位(定位数据更加一目了然)
WPS:Excel数据表格查询定位技巧之如何设置加重颜色的十字定位(定位数据更加一目了然) 目录 Excel数据表格查询定位技巧之如何设置加重颜色的十字定位 Excel数据表格查询定位技巧之如何设置加 ...
Excel如何为介于区间的数值设置背景颜色？
今天小编要和大家分享的是,Excel如何为介于区间的数值设置背景颜色? (方方格子插件) 1.先看动图演示吧 2.操作之前呢ctrl+A选中所有的数据 3.然后选择方方格子操作命令按钮 4 ...
speedoffice（Excel）表格如何设置背景颜色？
在使用Excel时,我们会输入一些数据或者文字内容,有时候会需要对某些表格进行背景颜色设置,那么Excel表格背景颜色怎么设置呢?大家来一起看看吧. 选中需要设置背景颜色的单元格. 在"主页 ...
EXCEL宏代码大全
本文件部分文章来源于网络,文章版权归原作者所有,如果本站转载的文章侵犯了您的权益请及时联系我们,我们将尽快妥善处理.本站除部分特别声明禁止转载的专稿外,其他文章可以自由转载,但请务必注明原出处和作者. ...
一段自己录制的Excel宏代码（画柏拉图）
Sub Macro2() ' ' Macro2 Macro ' 宏由 grace 录制,时间: 2007-7-4 ' ' Charts.Add ActiveChart.ApplyCus ...
Hutool如何给Excel按行设置背景颜色
在利用hutool根据某列给Excel设置背景色时,你可能会遇见,设置背景色不生效或者后面填充的背景色会覆盖前面填充的背景色.下面给出一个已经实现了根据某列条件设置某行背景颜色的案例代码. 目录 1 ...
php文字红色代码,IOS_IOS中一段文字设置多种字体颜色代码，给定range和需要设置的颜色， - phpStudy...
IOS中一段文字设置多种字体颜色代码给定range和需要设置的颜色,就可以给一段文字设置多种不同的字体颜色,使用方法如下: [self fuwenbenLabel:contentLabel Font ...
【最全IDEA个性化教程】idea设置主题+恢复主题默认设置+设置选中代码颜色+关键字颜色+设置字体大小、样式、颜色+设置背景颜色、图片+设置导航栏背景颜色+设置控制台字体样式及背景+常用快捷键)
目录下载设置主题样式+恢复主题默认设置 1 个性化代码段 1.1设置颜色设置光标颜色自定义图片做背景修改代码段的颜色和背景颜色选中代码块颜色修改,修改括号颜色 1.2 设置字体大小.格式 1 ...
android toast设置背景颜色,Android 彩色Toast的实现代码
Android默认的Toast太丑了,我们来封装一个花里胡哨的Toast吧,就叫ColoredToast. 效果: Toast有一个setView方法,通过它我们可以设置自定义的布局,这里我只是加入了 ...

Excel 宏代码实现按相同值分组设置背景颜色

Excel 宏代码实现按相同值分组设置背景颜色相关推荐

最新文章

热门文章