[已解决]如何用代码根据要求标色？

阿瑛

附件 根据A列数据标色同行相同数.rar (8.56 KB, 下载次数: 6)

2013-10-9 09:39 上传

点击文件名下载附件
多谢各位老师。

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-10-9 09:52

1. Sub abc()
   
2. kk = Range("a1:i" & Cells(Rows.Count, 1).End(3).Row)
   
3. For i = 1 To UBound(kk)
   
4. For j = 2 To UBound(kk, 2)
   
5. If kk(i, 1) = kk(i, j) Then
   
6. If m = 0 Then
   
7. Set s = Cells(i, j)
   
8. m = m + 1
   
9. Else
   
10. Set s = Union(s, Cells(i, j))
    
11. End If
    
12. End If
    
13. Next j, i
    
14. s.Interior.Color = RGB(255, 0, 0)
    
15. End Sub

复制代码

跳转到最佳答案楼层

美斯特邦威

1. Sub abc()
   
2. kk = Range("a1:i" & Cells(Rows.Count, 1).End(3).Row)
   
3. For i = 1 To UBound(kk)
   
4. For j = 2 To UBound(kk, 2)
   
5. If kk(i, 1) = kk(i, j) Then
   
6. If m = 0 Then
   
7. Set s = Cells(i, j)
   
8. m = m + 1
   
9. Else
   
10. Set s = Union(s, Cells(i, j))
    
11. End If
    
12. End If
    
13. Next j, i
    
14. s.Interior.Color = RGB(255, 0, 0)
    
15. End Sub

复制代码

那么的帅

310940-VBA-根据A列数据标色同行相同数.rar (16.86 KB, 下载次数: 7)

2013-10-9 09:52 上传

点击文件名下载附件

sgxb123431380

按照图片写一下条件格式然后用格式刷刷满就ok了~不需要写程序的