查找匹配项并复制相应数据

Question

我是VBA编码的全新初学者。我试图找到表1列A之间的匹配到表2中的excel工作簿，当发现匹配时，完整的行必须复制到表1。我是成功的，直到它找到一个匹配，但无法编码后，它找到一个匹配的做动作。请帮助!

Answer 1

这样的代码，你可以使用它来复制从表(2)coulman A到表(1)内的代码sub()或使用宏就是它。

Sub Macro1()
'
' Macro1
'
'
Columns("A:A").Select
Selection.Copy
Sheets("sheet(1)").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub