筛选后数据如何复制粘贴到对应的位置

2227554848

需要对数据进行分析统计，统计在某一日期使用公司和租用车辆各多少次，数据太多将近1w条数据，需要对数据表进行整理后，使用数据透视表进行分析。目前整理的方法是分别在公司车辆、租用车辆、市内载客等列对应的行中填入“1”，使用公式if函数，如在G2中输入“=IF(COUNT(FIND({"商务车"，“小轿车”，“考斯特”},B2)),"1","")”，然后转换成数值复制粘贴，再进行数据透视。
问题：1.用公式下拉（下拉方法太慢了，4000+条数据，有何快捷方法，是否用vb可实现）,
2.如何用筛选后的数据分别复制到对应行，如筛选用b列用车类型是公司后的数据，如何将数据复制到D列同样的区域，即A2到C2、A4到C4、A5到C5、A7到C7、……（使用“alt+；，复制，粘贴”方法实现不了）

说明：
1."商务车"，“小轿车”，“考斯特”属于市内用车。
2.厢式货车和大客车属于长途运输