[已解决]找相同的对应数！！！

CheryBTL · 发表于 2013-8-21 08:48

除去最后4列不好处理，前面的用比较笨的办法，直接用循环：

复制代码

wszbd · 发表于 2013-8-21 10:37

CheryBTL 发表于 2013-8-21 08:48
除去最后4列不好处理，前面的用比较笨的办法，直接用循环：

最后四列真的不好做吗，还是希望老师抽时间给琢磨琢磨。。。

谢谢！！！

CheryBTL · 发表于 2013-8-21 11:21

本帖最后由 CheryBTL 于 2013-8-21 14:02 编辑

wszbd 发表于 2013-8-21 10:37
最后四列真的不好做吗，还是希望老师抽时间给琢磨琢磨。。。

谢谢！！！

适用于后4列数据，增加一个循环即可：

复制代码

有二句代码多余，删除了。

CheryBTL · 发表于 2013-8-21 14:06

附件如下：

找相同的对应数.rar (12.64 KB, 下载次数: 7)

wszbd · 发表于 2013-8-21 14:26

CheryBTL 发表于 2013-8-21 14:06
附件如下：

太谢谢你了，真不愧为高手！！！

wszbd · 发表于 2013-8-21 14:26

wszbd · 发表于 2013-8-21 17:01

CheryBTL 发表于 2013-8-21 14:06
附件如下：

能否再加个VBA：让奇行一个都没有红色单元格的显示为淡蓝色。就像

找相同的对应数.rar (10.36 KB, 下载次数: 3)

wszbd · 发表于 2013-8-21 17:02

谢谢！！！

CheryBTL · 发表于 2013-8-21 17:27

本帖最后由 CheryBTL 于 2013-8-24 08:05 编辑

wszbd 发表于 2013-8-21 17:01
能否再加个VBA：让奇行一个都没有红色单元格的显示为淡蓝色。就像

再增加了个条件来判断是否整行都没有符合条件的数据即可，至于具体的颜色，可以将65535改为想要的颜色即可。

Sub aa()
Dim ar
Dim i As Integer, j As Integer, k As Integer, MaxRow As Integer, temp As Integer
Application.ScreenUpdating = False
MaxRow = [C65536].End(3).Row
ar = Range("C4:R" & MaxRow)
ReDim Re(1 To UBound(ar), 1 To 16)
For i = 2 To UBound(ar) Step 2
For j = 1 To 16
temp = 1
For k = 0 To 9
If Application.IsNumber(Application.Find(k, ar(i, j))) Then
If Application.IsNumber(Application.Find(k, ar(i - 1, j))) Then
Cells(i + 3, j + 2).Interior.Color = 255
temp = 0
Exit For
End If
End If
Next k
Next j
If temp = 1 Then Range("A" & i + 3 & ":R" & i + 3).Interior.Color = 65535
Next i
Application.ScreenUpdating = ture
End Sub

复制代码

wszbd · 发表于 2013-8-24 03:05

CheryBTL 发表于 2013-8-21 17:27
再增加了个条件来判断是否整行都没有符合条件的数据即可，至于具体的颜色，可以将65535改为想要的颜色即可 ...

老师：
不好意思，这两天出去了，没及时看你的回复。
这个程序有误差，好像把一部分红色的单元格变化了。
老师可以和上一个程序分开，另写一个程序。
这样我也好学习一下，太麻烦我看不懂。
谢谢！！！

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