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

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

 我来答

4个回答

#热议# 为什么说不要把裤子提到肚脐眼？

风一样的某某某
推荐于2021-02-09 · TA获得超过169个赞

知道小有建树答主

回答量：282

采纳率：100%

帮助的人：81.4万

我也去答题访问个人页

关注

展开全部

编个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