作者：绿色风
分类：
时间：2022-08-18
浏览：182
楼主
0Mouse |
实例如下：
初始效果：
预期效果：
方法一：采用vba解决，代码如下：- Sub 双色不等间隔填充的一个实例()
- Dim flag As Boolean, i%
- For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row
- If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
- Cells(i, 2).Resize(1, 4).Interior.ColorIndex = 37 + Abs(flag) * 8
- Cells(i, 2).Value = Val(Cells(i - 1, 2).Value) + 1
- Else
- flag = Not flag
- Cells(i, 2).Resize(1, 4).Interior.ColorIndex = 37 + Abs(flag) * 8
- Cells(i, 2).Value = 1
- End If
- Next
- End Sub
方法二：函数公式+条件格式（嘉昆2011）
1.序号填充解决方法
在B3单元格内输入以下公式，再双击该单元格右下角。- =COUNTIF(C$2:C3,C3)
2.颜色间隔填充解决方法
步骤1：拖拉选取单元格区域B3:E19，单击“开始”选项卡“字体”组的“填充颜色”按钮，再单击“淡蓝色”色块。
步骤2：保持选区不变，单击“开始”选项卡“样式”组的“条件格式”按钮。在弹出的“新建格式规则”对话框中，单击“使用公式确定要设置格式的单元格”，在下方的公式输入框内输入以下公式：- =MOD(COUNTIF($B$3:$B3,1),2)
或者- =MOD(SUM(--($C$2:$C2<>$C$3:$C3)),2)=1
单击右下角的“格式”按钮，在弹出的“设置单元格格式”对话框中，单击“填充”选项卡，再单击“浅橙色”色块，连续两次单击“确定”，完毕。
附件：
 双色不等间隔填充的一个实例.rar
|
2楼
天南地北 |
如果已经COUNTIF序号了，那直接统计1的个数判断奇偶不就行了 |
3楼
0Mouse |
原问题帖是先解决了颜色间隔填充的问题，再讨论序号问题，整理的时候就没转过弯来，惭愧惭愧！
 |
4楼
天南地北 |
还是用一个一个比对然后统计不同个数适用性广，不过有序号了用COUNTIF更好理解，对于新手一个一个比较不同个数不太好理解！ |
5楼
0Mouse |
说的是！条件格式的第2个公式是比较难理解的，就算是老鸟估计也要花点时间才能想明白。 |
6楼
yzcyzc1023 |
谢谢了。 |
7楼
arcsinf |
楼主很厉害哦 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一