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

CheryBTL

wszbd 发表于 2013-8-24 03:05
老师：
不好意思，这两天出去了，没及时看你的回复。
这个程序有误差，好像把一部分红色的单元格变化了 ...

试试这个代码吧：
若不想单元格颜色显示，就将此名代码作为注释即可。

1. Cells(i + 3, j + 2).Interior.Color = 255

复制代码

1. Sub 图052()
   
2. Dim ar, Re
   
3. Dim i As Integer, j As Integer, k As Integer, MaxRow As Integer
   
4. Dim temp As Integer
   
5. Application.ScreenUpdating = False
   
6. MaxRow = [C65536].End(3).Row
   
7. ar = Range("C4:R" & MaxRow)
   
8. ReDim Re(1 To UBound(ar), 1 To 16)
   
9. For i = 2 To UBound(ar) Step 2
   
10.     temp = 0
    
11.     For j = 1 To 16
    
12.         For k = 0 To 9
    
13.            If Application.IsNumber(Application.Find(k, ar(i, j))) Then
    
14.                 If Application.IsNumber(Application.Find(k, ar(i - 1, j))) Then
    
15.                         Cells(i + 3, j + 2).Interior.Color = 255
    
16.                         temp = 1
    
17.                         Exit For
    
18.                 End If
    
19.             End If
    
20.         Next k
    
21.      Next j
    
22.      If temp = 0 Then
    
23.          Range("A" & i + 3 & ":R" & i + 3).Interior.Color = 65536
    
24.      End If
    
25. Next i
    
26. Application.ScreenUpdating = ture
    
27. End Sub

复制代码

wszbd

CheryBTL 发表于 2013-8-24 08:05
试试这个代码吧：
若不想单元格颜色显示，就将此名代码作为注释即可。

正是我想要的！！！
谢谢！！！
向你学习！！！{:011:}

linshuyan

学习

wszbd

linshuyan 发表于 2013-8-25 07:20
学习

我俩一个级别{:011:}