难道没人会解吗？

[freckroser]

有二个表格及其字段如下：
EXCEL1：AA1，DD1；
EXCEL2：AA1，BB2，CC2，DD1；
如何用VBA宏实现：当在EXCEL2中输入字段AA1的内容（假设是aa1）时，自动在EXCEL1中查找aa1所对应的DD1的值，并在EXCEL2中显示出来？
我是初学者，盼高手指教！多谢！

[WangLan]

下面的代码实现了，当在Sheet3的单元格中输入数据时，从Sheet1的第一列查找匹配的记录，找到后，将第二列的值复制到Sheet3当前行的第2列。
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Sheet1.Rows.Count
If Sheet1.Cells(i, 1) = Cells(Target.Row, Target.Column) Then
Cells(Target.Row, 2) = Sheet1.Cells(i, 2)
Exit For
End If
Next
End Sub
要使上面的代码可以运行，在Visual Basic 的编辑器中，在Sheet3的Change事件中输入上面的代码进行适当的处理就行了。