EXCEL如何用VBA设定SHEET1中的A1输入一个姓名后,B1提取姓名后去SHEET2数据库里自动查找相同的名字数据

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或者更多,其他的不便
温馨提示:内容为网友见解,仅供参考
第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

EXCEL如何用VBA设定SHEET1中的A1输入一个姓名后,B1提取姓名后去SHEET2...
在表一的B1输入公式:=vlookup($a1,sheet2!$a:$c,column(b:b),0)公式往右拉,往下拉 如果查找的数据不止三列,那就将$c改成$d或者更多,其他的不便

EXCEL如何用VBA设定SHEET1输入文字,在SHEET2数据库里自动查找并标颜色...
Dim i As Long Dim s As String If Target.Column = 2 And Target.Count = 1 Then' 指定B列任意一个单元格输入 s = Target.Value With Sheet2 For i = 1 To .Range("B65536").End(xlUp).Row'从表2第1行循环到B列最后一个非空行号 If .Cells(i, 2) = s Then .Rows(i).Inter...

excel 如何通过vba将sheet1中的操作写入到sheet2中
1、假如要把Sheet1工作表中A1单元格的数据写入Sheet2工作表的A1单元格中。2、可以执行以下语句:sub test() sheets("Sheet2").range("A1").Value=sheets("Sheet1").range("A1").Valueend sub3、语句解释:range("A1")代表A1单元格,.Value代表是单元格的值属性。

excel中如何将用vba把表一的信息录入表二
1、可以先利用宏录制来自动生成代码,然后再进行修改。操作方法如下:第一步,打开一个excel应用,新建一个白空表格,并录入数据。2、第二步,点击excel应用程序窗口状态栏中左侧的“宏录制”按钮。3、第三步,然后在表1中,选中左上角第一个有数据的单元格。4、第四步,接着按下CTRL+SHIFT键,再...

求excel 高手 用VBA\/宏 实现将sheet1筛选后的内容粘贴至sheet2
Application.ScreenUpdating = False strSheetName_1 = "Sheet1" '此处可修改表1名称 strSheetName_2 = "Sheet2" '此处可修改表2名称 Sheets(strSheetName_1).Select Range("A1").CurrentRegion.Select iMaxRow = Selection.Rows.Count Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, ...

excel如何制作一个vba按钮,点一下之后让sheet1里面的部份数据,自动保存...
开发工具里面,插入——ActiveX控件,选中按钮,在Excel上拖拽2个按钮 请点击输入图片描述 右击按钮,查看代码,可以打开VBE界面(右击按钮,选择属性,里面可以改按钮的显示内容,Caption属性)Private Sub CommandButton1_Click()Sheet2.Range("A1").Value = Sheet1.Range("A10").Value '将表1中的...

EXCEL中怎么把Sheet1中用公式引用的数字,把值保存到Sheet2中?
'用VBA代码实现!'按alt+f11进入VBE编辑窗口,然后选择插入---模块---会打开一个模 '块窗口,把下面的代码复制进去--保存,再次按alt+f11返回excel窗口 '按alt+f8打开运行宏窗口,会看到test宏,运行它就可以了!'(代码亲测,希望对你有用)'---以下代码部分,可全部复制我的答案到模块窗口---...

EXCEL如何可以点击sheet1中的某个姓名直接查看到sheet2中该姓名对应...
方法1:你在B列顶端建一个下拉菜单(点数据-数据验证-区域选择A列的姓名),然后在C列中编写vlookup函数公式。这样点选菜单中名字,就能够自动查到相应的数据。方法2:编写VBA实现。怎么写就不说了,能在这里提问,多半你自己做不了,建议找个高手帮忙。当然,如果你给我提供具体的表格,我能够做到...

EXCEL vba 将SHEET1中A1单元格中的值 提取到SHEET2 A1中的语句
菜单 -视图 -工具栏- 窗体 在出来的工具栏选按纽,然后画一个按钮.在出来的对话框里点新建 出来的宏 Sub 按钮1_单击()End Sub 在中间加入代码 Sub 按钮1_单击()sheet2.range("a1")=sheet1.range("a1")End Sub 子易空间站 - Excel培训专家 ...

如何用Excel VBA根据sheet1的姓名匹配sheet2的竖列多个内容?
arr = Sheets("Sheet2").Range("a2:e13")ReDim brr(LBound(arr, 2) To UBound(arr, 2), LBound(arr) To UBound(arr))For i = LBound(arr) To UBound(arr)If arr(i, 2) = Sheets("Sheet1").Range("b2") Then For j = LBound(arr, 2) To UBound(arr, 2)brr(j, LBound...

相似回答