按ALT+F11,打开VBA编辑器,插入一个模块,放入如下代码,把光标停在代码中间,按F5运行。
Public Sub lwy()
For i = 1 To 10 '如果你A列的数据在A1:A10,具体根据实际自己修改一下。
For j = 1 To 10 '如果你B列的数据在B1:B10,具体根据实际自己修改一下。
If Cells(i, 1) = Cells(j, 2) Then
Cells(i, 3) = Cells(j, 6)
End If
Next
Next
End Sub
温馨提示:答案为网友推荐,仅供参考