求高手搞定！VBA正则过滤关键字！

diablosong

C3:C300内是原始院校名称 有大量的不需要字要删除。整理后的名字放在R列 R3开始。T3单元格内填写需要过滤的关键字，请高手帮忙写代码
顺便在绿色色块上加一个过滤按钮  谢谢

A1233515

正则表达式：
.*?(大学|学院)(.*?学院)?

A1233515

附件供参考

zpy2

select regreplace('/(教学科研处)|(办公室$)|(教务处)|(新楼307)|(考试中心)|[(]文南楼207室教学办[)]|(教学办)|(英语系)|(外文系)|(教务办)|[(]逸夫科研楼1211[)]|(外语系)|(外语办公室)|(行政|国开业务部)|(业务部)|(教学运行科)|(教务部)|[（]综合楼1015[）]|(翻译系)|(考务管理科)|(考务科)|(课程中心)|(教研科)|(院办$)|(考试部)|(教学科研部)|(考务中心)|(教科办)|(基础部)|(本科教学办)|(教学科)|(教学管理部)|(考籍科)|(教务科)|(教学与研究部)|(秘书办[（]文科楼[）])|(教学与研究部)|(教管科)|(考试科)|(国内部)|(教学科研工作部)|(教务管理部)|(业务办)|(教学管理科)|(综合科)|(（办公楼235）)|(公安管理系)|(国际语言文化学部)|(科研办$)|(本科办)|(教管办)|(文法学部)|(公室)|(\B办)|(海关外语系)|(国际商务)|(研工作部$)|(教学与科研办公室$)|(\b教学科研办$)|(国际警务系$)|(研)|(运行科)|(（南院南教2-404）)|(（244信箱）)|(教学管理)|(招生)|(英语专业教研室$)|(教学服务中心)|(继续教育处)|(商务英语系)|(管理工程系)|(教学事务部41信箱)|(教务委员会)|(招生办)|(教学发展中心)|(文法系)|(地方大学生系)|(英语教育研究室)|(教学考评中心)|(军事外语系)|(本科教务办文科楼423)|(应用外语系)|(外国语言文化系)|(文理系)|()|()|()|()/','',院校名称) 整理后院校名称 from 院校名称明细表

race01

我來簡化正則:第一個值能抓取到:無需再往下判断

.*?(?:大学|学院)(?:.*学院)?