EXCEL如何用VBA设定SHEET1中的A1输入一个姓名后，B1提取姓名后去SHEET2数据库里自动查找相同的名字A1后面B2的数据过来。C1也是一样到SHEET2中提取C1的数据过来。以此类推。 就是说只要SHEET1的A1输入一个名字后到SHEET2后验证正确后SHEET2的A1后面的数据都要对应过来。而却可以运用到SHEET1中的A1到A1000后面的单元格中使用。
是要查找引用符合条件的数据对吧？貌似公式就可以解决。
在表一的B1输入公式：
=vlookup($a1,sheet2!$a:$c,column(b:b),0)
公式往右拉，往下拉
如果查找的数据不止三列，那就将$c改成$d或者更多，其他的不便
在表一的B1输入公式：
=vlookup($a1,sheet2!$a:$c,column(b:b),0)
公式往右拉，往下拉
如果查找的数据不止三列，那就将$c改成$d或者更多，其他的不便
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-02-26
按ALT+F11,双击sheet1,输入如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
If Target.Count = 1 And Target.Column = 1 Then
With Sheets("sheet2").Range("A:A")
Set c = .Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Target.Offset(0, 1) = c.Offset(0, 1)
Target.Offset(0, 2) = c.Offset(0, 2)
End If
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c
If Target.Count = 1 And Target.Column = 1 Then
With Sheets("sheet2").Range("A:A")
Set c = .Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
Target.Offset(0, 1) = c.Offset(0, 1)
Target.Offset(0, 2) = c.Offset(0, 2)
End If
End With
End If
End Sub
