excel 从多个工作表提取指定日期数据?

Question

假定有3个工作表，每个工作表每日会更新数据，能否在一张汇总表上写上指定的日期，各个工作表上指定日期的数据（日期在第4列）就会自动出现在汇总表上，函数该怎么写，假设三个工作表分别为Sheet1,sheet2,sheet3,谢谢～

Answer 1

编个VBA过程给你吧，请先将要汇总的表选择（激活），再运行此过程

 sub getmydata()
 zddate=inputbox("请输入日期：")
 i=2
 for j=1 to 3
     m=1 
     do wihile cells(m,4)<>""
        if cdate(zddate)=cells(m,4) then 
           range(i & ":" & i)=sheets("sheet" & j).range(m & ":" & m)
           i=i+1
        end if
        m=m+1
     loop 
 next j   
 end sub

追问

非常谢谢你～可是测试了提示有错
Compile error:
Syntax error

追答

 Sub getmydata()
 zddate = InputBox("请输入日期：")   
 i = 2
 For j = 1 To 3
     m = 2         '此处设置表123，开始统计行
     Do While Sheets("Sheet" & j).Cells(m, 4) <> ""
        If CDate(zddate) = CDate(Sheets("Sheet" & j).Cells(m, 4)) Then
           Range(i & ":" & i) = Sheets("Sheet" & j).Range(m & ":" & m)
           i = i + 1
        End If
        m = m + 1
     Loop
 Next j
 End Sub

追问

　　hi 真的太感谢你了～我在两个工作表中测试了，其中一个成功了，不过日期格式的都变成0.333这样的文本格式；在另外一个表中测试时提示运行时错误，下标越界，这个工作簿较大，有20个左右工作表，每天都会更新数据，是不是这个原因导致失败呢?真的很佩服你，谢谢你的热心帮助。。

追答

 
'以上程序经过调试的，出错的原因已注释,现在表格与表格名无关了，查本文件内所有表格
'（除当前表格）

Answer 2

用个等号直接引用不就完了，你这小白的厉害。
=D5，引用的是当前工作表D5，=sheet3!D5，这引用的就是sheet3的D5，同理以此类推就好了。

Answer 3

用SUM函数。

Answer 4

有具体的表吗，传一个上来看看