第一次发，求助，从多个表格中筛选同一日期的数据。

vba循环查找就行了

自己顶

问题能不能说的详细点，随便猜猜看吧!公式中"A:D"请自行配合表格自行修改
=VLOOKUP(B3,INDIRECT($A3&"!A:D"),COLUMN(B1),)
右拉下拉

B2=VLOOKUP($B3,INDIRECT($A3&"!B:G"),COLUMN(B1),)
右拉至D2
E2=VLOOKUP(B3,INDIRECT(A3&"!B:G"),5,)
B2~E2下拉
或=VLOOKUP($B2,INDIRECT($A2&"!B:G"),COLUMN(B2)*1.2,)
右拉下拉

单击工作表sheet1，在B3单元格中输入日期，如：2014-11-12
按住ALT键不放手，依次按F11键、i 键、m键，（作用是打开VB窗口，并插入－模块）；
把下面的代码复制到模块中；
按F5键（作用是：运行程序）（但愿能帮到你，如果成功，你还要稍微改动一下）
程序代码如下:
Sub aaa()
Dim BM As String
BM = ActiveSheet.Name
Dim DD As Variant
DD = [B3] '单元格B3中输入日期，比如：“2014-11-12”
Sheets.Add
Dim n As Long
n = 3
Dim ws As Worksheet
Dim a As Range
For Each ws In Worksheets
'在所有工作表中，除了活动工作表（即要写入结果的表）之外，只要表名称像“P??QH”
'就在其中查找B3单元格中所输入的日期，注意：在每个表上只找一个，如果找到该日期
'就将该单元格后面的5个单元格内容复制到“要写入结果的表”的有关位置
If ws.Name Like "P??QH" And ws.Name <> BM Then
Set a = ws.Cells.Find(DD, LookAt:=xlWhole)
If Not a Is Nothing Then
Cells(n, 1) = ws.Name
Cells(n, 2) = DD
a.Offset(0, 1).Resize(1, 5).Copy Cells(n, 3)
n = n + 1
End If
End If
Next
End Sub