求助老师们，合并单元格按照指定颜色顺序填色，并填色合并单元格对应的数据行

976190982

填色是根据A列的内容，不合并的是时候是相同值，或者唯一值，

按照指定颜色值跟据A列的数据填色A列数据对应的各列数据
有时候A列对应的数据可能是10列/20列，求助老师们  可否实现呢，谢谢老师们

问题.zip (10.64 KB, 下载次数: 9)

2020-7-11 20:50 上传

点击文件名下载附件

zpy2

个人觉得还是聚光灯的方式比较方便查看。

ykcbf1100

。。。。。。。

ykcbf1100

1. Sub ykcbf()   '//2025.2.24   标色
   
2.     r = Cells(Rows.Count, 2).End(3).Row
   
3.     [b:c].Interior.ColorIndex = 0
   
4.     For i = 2 To r
   
5.         Set Rng = Cells(i, 1)
   
6.         If Rng.MergeCells = True Then
   
7.             m = Rng.MergeArea.Count
   
8.             ys = Rng.Interior.ColorIndex
   
9.             Cells(i, 2).Resize(m, 2).Interior.ColorIndex = ys
   
10.             i = i + m - 1
    
11.         End If
    
12.     Next
    
13. End Sub
    

复制代码