excel 引用!~~~~~请进

在原工作薄新建一个工作表，放在最前面

假设原工作薄中有100张表

alt+f8，插入宏
然后把下面的东西粘贴进去，再alt+f8,执行就可以了

Sub abc()
Dim i, j

For i = 1 To 100 '100是你工作薄中工作表的数目，数字大于工作表数目的话，会提示越界，可以不用关

ActiveWorkbook.Worksheets(1).Cells(i, 1).Value = ActiveWorkbook.Worksheets(i + 1).Range("a2").Value

Next i
End Sub
刚刚开始学vba，很多关键词记不住，你就讲究用吧……

=========
反正问题解决了……你管那个干吗……
很多关键词不知道怎么写，你再问别人吧 忙着呢……

我记得excel好像没有这个功能吧！数据库可以这个查询的。不过我也忘记了。呵呵。你是问题很有意思，观注一下。

我来说说具体操作：
工作表B的A列分别输入100个工作表名
B1单元格输入公式 =indirect(A1&"！B2")
将B1单元格公式向下复制就行了

大徐哥 回答的思路正确，不过操作方法有点问题，我来补充一下。
假设工作表A叫Book1，其中第一个工作表为Sheet1，在工作表B中的B1单元格输入“[book1]sheet1”，再用鼠标选中B1单元格，点住单元格右下角的小黑点，用鼠标向下拖，直到Bn单元格（n＝工作表A的工作表数），这时Bn单元格出现的应该是“[book1]sheet n”。然后在A1单元格输入“=indirect(B1&"！B2") ”，在向下填充公式就可以了。