[已解决]上行和下行数字相同,给上行标记颜色

jjxuexizy · 发表于 2015-3-23 17:38

本帖最后由爱疯于 2015-3-26 08:54 编辑

如：b2=e3=1，d2=c3=5（e3不标记颜色）
c3=e4=5(c3也需要标记颜色)

最佳答案

26759761@qq.com

2015-3-23 18:03

本帖最后由 26759761@qq.com 于 2015-3-23 18:06 编辑

Sub x()
Dim arr, r, l, x
Cells.ClearFormats '先清除格式
arr = Range("a1").CurrentRegion '把数据放进数组
For r = 2 To UBound(arr) - 1 '从数组第二行循环到倒数第二行
For x = 2 To UBound(arr, 2) '从数组第二列循环到最后一列
For l = 2 To UBound(arr, 2) '从数组第二列循环到最后一列
If arr(r, x) = arr(r + 1, l) Then Cells(r, x).Interior.ColorIndex = 6 '如果满足条件则设置颜色
Next
Next
Next
Range("a1").CurrentRegion.Borders.LineStyle = 1 '加上边框
End Sub

复制代码

dsmch · 发表于 2015-3-23 17:58

………………

26759761@qq.com · 发表于 2015-3-23 18:03

本帖最后由 26759761@qq.com 于 2015-3-23 18:06 编辑

Sub x()
Dim arr, r, l, x
Cells.ClearFormats '先清除格式
arr = Range("a1").CurrentRegion '把数据放进数组
For r = 2 To UBound(arr) - 1 '从数组第二行循环到倒数第二行
For x = 2 To UBound(arr, 2) '从数组第二列循环到最后一列
For l = 2 To UBound(arr, 2) '从数组第二列循环到最后一列
If arr(r, x) = arr(r + 1, l) Then Cells(r, x).Interior.ColorIndex = 6 '如果满足条件则设置颜色
Next
Next
Next
Range("a1").CurrentRegion.Borders.LineStyle = 1 '加上边框
End Sub

复制代码

baksy · 发表于 2015-3-23 19:40

附件

jjxuexizy · 发表于 2015-3-24 09:41

谢谢高手们的帮助

		自动登录	找回密码
密码			注册