Excel VBA跨表查询功能

1.以下为一般表格，有1000名学生的信息，这里只列举几个项目，比如姓名、性别、出生日期、学号等。

民族。 <>

2.插入一张工作表，并将其命名为“Class 1 （1）”，这是您班上学生的名字，班主任当然可以快速输入。

3.现在在单元格b2中输入“=vlookup（$a 2，总表）！ $a$2：$e$1000,2,0）“，按回车键显示小明的性别。

注意：输入必须为英文。

解释： $a 2 表示此工作表正在查找的单元格 （意味着您要转到另一个工作表以查找与此单元格相同的内容）。

总表！ 表示要查找的工作表（在“摘要”工作表中找到）。

A$2：$e$1000 查找要搜索的范围，即 A2 到 E1000 这个范围 2 代表要显示的数据列，即搜索范围是 A2 到 B7，那么 A 是第 1 列，我想显示 B 列中的数据，B（性别）列是第 2 列。 <>

4.选择B2框，当鼠标移动到右下角并出现黑色叉号时，单击左键并将其向下拉，将其拉到最后一个学生然后松开，将出现所有学生的性别。

5. 回到 B2 并像上一步一样向右拉。

看看效果如何全是性别，然后看看下一步。

6.选择C2，查看功能栏，要显示的列数没有变化，仍然是第二列，那么“出生日期”是第三列，改为3，然后输入。

效果出来了，看出生日期，然后用上面的方法拉下来，把整个班级拉出来。

7.以此类推，更改其他列后，再下拉，即可显示所有信息。

无论是跨工作簿还是只在同一个表中，工作簿是否打开，这些条件不同，需求也不同。

在 Sheet1 字段中，输入以下内容：

private sub worksheet_change(byval target as range)

on error resume next

if target = "" then

exit sub

end if

for i = 2 to

set c = sheets(i).,activecell, ,xlwhole)

if not c is nothing thensheets(i).select

sheets(i).range(

exit sub

end if

next i

end sub

功能还是比较简单的，如果还有进一步的要求，可以跟我打个招呼。