Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3019|回复: 2

[已解决]求个代码,重复的就填充红色

[复制链接]
发表于 2014-5-2 07:55 | 显示全部楼层 |阅读模式
本帖最后由 salina123 于 2014-5-2 09:26 编辑

重复的就填充红色
最佳答案
2014-5-2 08:35
………………

QQ.zip

3.35 KB, 下载次数: 2

发表于 2014-5-2 08:33 | 显示全部楼层
  1. Sub Macro1()
  2. Dim arr, rng As Range, i&, j%
  3. arr = Range("b11").CurrentRegion
  4. ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
  5. For j = 1 To UBound(arr, 2)
  6.     For i = 1 To UBound(arr) - 1
  7.         If arr(i, j) = arr(i + 1, j) Then
  8.             If rng Is Nothing Then
  9.                 Set rng = Cells(i + 10, j + 1).Resize(2, 1)
  10.             Else
  11.                 Set rng = Union(rng, Cells(i + 10, j + 1).Resize(2, 1))
  12.             End If
  13.         End If
  14.     Next
  15. Next
  16. If Not rng Is Nothing Then rng.Interior.ColorIndex = 3
  17. End Sub
复制代码
回复

使用道具 举报

发表于 2014-5-2 08:35 | 显示全部楼层    本楼为最佳答案   
………………

QQ.zip

8.98 KB, 下载次数: 11

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 04:43 , Processed in 0.406268 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表