如何在excel工作簿中自动提取条件符合的数据到另一表中

Question

a.xls和b.xls两个EXCEL工作簿中，a.xls里面包含很多工作表，且每表中的A1列都是型号，B1列都是数量。

现在想得到效果是在b.xls的表中A1列输入任一型号，B1列就能自动生成a.xls里所以表中相应型号的数量合计。有没有简洁的公式或者是宏也行

Answer 1

首先更正楼主的一个错误，A1、B1叫单元格（每个行与列交叉的小格叫单元格），而不是列（列应当用A、B...表示）。像你这样提问，很难让回答者明白你的意思。。
目前找不到太好的代码，先用下面的代码吧，速度可能稍慢些（视a.xls里面内容多少而定）~~
使用方法（代码中以A、B列理解的你的意思）：
1、打开 b.xls 需要输入型号的那张表，按 ALT + F11 组合键打开 VBA编码器
2、在编码器左侧双击与 b.xls 需要输入型号的那张表 对应的表
3、把下面的代码复制到右侧的代码区域
在 b.xls 需要输入型号的那张表的A列输入型号试试看哦。。

' 表更新事件
Private Sub Worksheet_Change(ByVal Target As Range)

' 把发生更新的单元格行号赋值给变量 i
i = Target.Row
' 如果A列数据发生更新
If Target.Column = 1 Then
' 如果单元格更新后的内容为空，则结束代码
If Cells(i, 1) = "" Then Exit Sub
' 先使更新单元格同行的B列值为空
Cells(i, 2) = ""
' a.xls 获得焦点
Windows("a").Activate
' 循环 a.xls 的各个表
For Each aws In Worksheets
' 循环 a.xls 中 aws 表的用户行
For j = 1 To aws.UsedRange.Rows.Count
' 如果 A列单元格 等于输入内容
If aws.Cells(j, 1) = Cells(i, 1) Then
Cells(i, 2) = aws.Cells(j, 2)
End If
Next j
Next aws
' b.xls 获得焦点
Windows("b").Activate
' 如果没有对应内容
If Cells(i, 2) = "" Then
MsgBox "对不起！没有找到你输入的内容...", , "波涛工作室"
End If
End If

End Sub

Answer 2

高级筛选不仅能筛选出合乎条件的数据且可以把数据放于指定位置，完全符合题目意思：

把筛选条件按照标题，下面是条件的格式写在任意空白处


点击高级筛选-方式选择复制到其他位置-区域选择全部内容，一定要有标题，条件选择上点的区域，复制到选择另一个表的位置，为了好显示下例选择的是本表：

Answer 3

代码放到对应表的窗口。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sh As Worksheet, Sum As Double
Dim R1 As Range, R2 As Range, Str As String
If Target.Column = 1 Then
if target.text="" then exit sub

Str = Target.Text
For Each Sh In Workbooks("book1.xls").Worksheets '引号内为查找的工作簿名称

Set R1 = Sh.Columns("A").Find(Str, LOOKAT:=xlWhole)
If R1 Is Nothing Then GoTo L1
Set R2 = R1
Do
Set R1 = Sh.Columns("A").Find(Str, R1, LOOKAT:=xlWhole)
Sum = Sum + R1.Offset(0, 1).Value
If R1.Address = R2.Address Then Exit Do
Loop
L1:
Next
Target.Offset(0, 1).Value = Sum
End If
End Sub

Answer 4

在b.xls的B1单元格输入=SUMIF(Sheet1!A:A,A1,Sheet1!B:B)，下拉，然后在A1单元格输入相应的型号就能得到相应的数量。

追问

但这是针对一个表 需要的是a.xls里面所有的工作表

追答

哦，那看来得用宏了，同等高手来答。