如何在excel中提取两列数据中相同的数据及附带的值并显示在另外两列里面

Question

RT，我要匹配两列变量，把相同的变量，及他们的值同时提取出来，再另外的列中显示。注，两列变量中同一个变量的值是不同的。

Answer 1

假如按你的表结构，用鼠标右键单击工作表标签，选择“查看代码”，然后输入如下代码：
Sub 提取并比较相同变量()
Dim iRow As Integer
Dim i, a As Integer
iRow = WorksheetFunction.Max(Range("A65536").End(xlUp).Row, _
Range("C65536").End(xlUp).Row)
a = 2
For i = 3 To iRow
If WorksheetFunction.CountIf(Range(Cells(3, 3), _
Cells(iRow, 3)), Cells(i, 1)) > 0 Then
a = a + 1
Cells(a, 6) = Cells(i, 1)
Cells(a, 8) = Cells(i, 1)
Cells(a, 7) = Cells(i, 2)
Cells(a, 9) = WorksheetFunction.VLookup(Cells(i, 1), _
Range(Cells(3, 3), Cells(iRow, 4)), 2, False)
End If
Next
End Sub
代码输入完后，将宏安全性设为中，重新打开文档时，选择启用宏，需要的时候运行宏“提取并比较相同变量”。