请教高手，数据处理（见附件，有详细说明）

斜阳季度

由于数据量大，真的无法用函数完成。以下说明，另见附件！
请各位高手帮助解决。

说明：
    所有数据都是1或者2。A列数据15万个，B列数据25个。
    判断B1:B25单元格(25个单元格)是否与A1:A25单元格（25个单元格）值完全相等，如不等，则判断B1:B25是否与A2:A26单元格数据完全相等，依次判断，程序执行到A149993行（相当于函数里面的下拉），如B1:B25单元格与A1:A25单元格相等，则将A26:A32单元格（7个单元格）值分别返回到E1:K1中，同时将A26的行数值返回到D1。这样一条信息采集完成，如有多个满足条件的信息，只采集三条信息后退出程序。如果只有一条信息满足条件，则采集完成后，程序结束。
    如果以上未找到符合条件的信息，则判断B2:B25单元格(24个单元格)是否与A1:A24单元格（24个单元格）值完全相等，程序执行到A149993，如B2:B25单元格与A1:A24单元格完全相等，则将A25:A31单元格（7个单元格）值分别返回到E5:K5中，同时将A25的行数值返回到D5。同上，只采集三条，如只有一条，采集后程序结束。
（以下类推：）
    如未找到，则判断B3:B25单元格与A1:A23（如相等则将A24:A30返回到E9:K9，将A24的行数值返回到D9）......
    如未找到，则判断B4:B25单元格与A1:A22（如相等则将A23:A29返回到E13:K13，将A23的行数值返回到D13）......
    如未找到，则判断B5:B25单元格与A1:A21（如相等则将A22:A28返回到E17:K17，将A22的行数值返回到D17）......
    如以上均未找到，程序结束。
    有20张这样的完全一样的工作表，只是数据不同，运行一次，对20张工作表完成采集。

    如果用函数，那可真是杯具了~~~~还求大神用VBA帮助解决。
                                                                                           斜阳几度在此谢过！！！
    本表版本为 excel 2013 由于数据关系，无法使用2003版。