两列数据互相比较，并将结果按要求在另一列显示

nirvana416

各位大佬，想要实现这个功能，数据在A列和G列，想要实现如果A列的某个数据在G列也有，那么在A列该数据所在行的C列输入该数据。如果A列有，G列没有的数据，在A列该数据所在行的C列显示空白。如果A列没有，G列有的数据，那么在A列最后一个数据后的空白单元格所在行的C列顺次填入该数据。

QuantumChou

1. Sub test()
   
2.     Dim ras, rae, rgs, rge As Integer
   
3.     Dim i, j, k As Integer
   
4.     ras = Cells(1, 1).End(xlDown).Row          'A列第一个数据所在的行
   
5.     rae = Cells(Rows.Count, 1).End(xlUp).Row   'A列最后一个数据所在的行
   
6.     rgs = Cells(1, 7).End(xlDown).Row          'G列第一个数据所在的行
   
7.     rge = Cells(Rows.Count, 7).End(xlUp).Row   'G列最后一个数据所在的行
   
8.     k = 0
   
9.     For i = ras To rae
   
10.         For j = rgs To rge
    
11.             If Cells(i, 1) = Cells(j, 7) Then
    
12.                 Cells(i, 3).Value = Cells(i, 1).Value
    
13.                 Exit For
    
14.             End If
    
15.         Next j
    
16.     Next i
    
17.     For i = rgs To rge
    
18.         For j = ras To rae
    
19.             If Cells(i, 7) = Cells(j, 1) Then Exit For
    
20.             If (Cells(i, 7) <> Cells(j, 1)) And (j = rae) Then
    
21.                 k = k + 1
    
22.                 Cells(rae + k, 3).Value = Cells(i, 7).Value
    
23.             End If
    
24.         Next j
    
25.     Next i
    
26. End Sub

复制代码