大家好,今天小六子来为大家解答以下的问题，关于根据日期提取对应日期数值，excel按日期提取数据这个很多人还不知道，现在让我们一起来看看吧！

1、编个VBA过程给你吧。

2、请先将要汇总的表选择（激活）。

3、再运行此过程 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。

本文分享完毕，希望对你有所帮助。