=INDEX(sheet1!a:a,SMALL(IF($K$1:$K$1000="已过期",ROW($1:$1000),4^8),ROW(A1)),)&""（sheet1是你原始表名称）按ctrl+shift+enter结束，右拉至k列，a到k列一起下拉
建立一个透视变，筛选行中添加“提醒”，在透视表中双击此“已过期”项即可弹出新建所有已过期行数据表；
1、筛选一下，把筛选到的数据复制到新表2、用vba自动完成
