无需VBA，在sheet3的A2中输入公式：
=IF(COUNTIF(A$1:A1,MAX(Sheet1!A:A))
=IF($A2="","",INDEX(Sheet1!$B:$D,SMALL(IF(Sheet1!$A:$A=$A2,ROW(Sheet1!$A:$A),4^10),ROW(1:1)),COLUMN(A:A)))
同时按Ctrl+Shift+Enter三键输入数组公式，右拖到D2。
选择A2:D2，下拉若干行，具体多少，可略多行一天中可能最多的数据行数。
这样Sheet3的数据就是会Sheet中最后输入数据日期的数据。
这个还是考虑使用vba表格事件来实现吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024