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

功能還是比較簡單的，如果還有進一步的要求，可以跟我打個招呼。