Excel如何按条件自动复制整行到新表中

Excel如何按条件自动复制整行到新表中
一个Excel簿一共有五个工作表，分别是：总表、餐费、成本、汽车、特批。表格结构都是一样的：A列是日期，B列是项目内容，C列是金额，D列是支付人，E列是票据，F列是经费种类（有餐费、车费、成本、特批四种）。第一至五行是表头，第六行开始是数据。
现要求把“总表”经费种类中所有属于餐费类的记录行（A列至F列）自动复制到“餐费”表中，即当我在“总表”中添加是属于餐费类的记录行时，该行（A列至F列）会自动复制到“餐费”表中(相当于餐费汇总表)。同理，“总表”经费种类属于“成本”类的记录行（A列至F列）自动复制到“成本”表中……求公式或宏都行。“餐费”表的A6=IF(ROW(A1)>COUNTIF(总表!$F:$F,"餐费"),"",INDEX(总表!A:A,SMALL(IF(总表!$F$6:$F$30="餐费",ROW(总表!$F$6:$F$30),4^8),ROW(A1))))，数组公式，按Ctrl+Shift+Enter结束。其它工作表只需将公式中的"餐费"替换掉就可以了。如果我的表中有1000行数据，还需改公式中的什么？

公式改为=IF(ROW(A2)>COUNTIF(总表!$F:$F,"餐费"),"",INDEX(总表!A:A,SMALL(IF(总表!$F$6:$F$1006="餐费",ROW(总表!$F$6:$F$1006),4^8),ROW(A2))))即可改公式后，单元格中应不会显示#VALUE!,如果仍会显示#VALUE!,可将表发到我的邮箱,我看问题出在哪里:917632584@.com

这个最好用VBA来解决， 不但处理速度快点，相对文件的大小也会小一点有利于保存更多数据