Question

excel VBA 提取指定字符串

If c.Value Like "*[语文,数学,英语,生物,地理,物理,化学,政史]*" Then
比如：查找“语文2”，或"q化学2
得到这个c.Value后，怎么提取出"语文,数学,英语,生物,地理,物理,化学,政史]" 之中的学科文本啊？
比如：得到c.Value的值为"q化学2提取出"化学"
1、左右两边都是*，不好确定位置啊
2、中间的学科是变化的（不一定是"化学"）。
答的好追加10分？
要是用正则，弄个分组（）加$1就可了，这个VBA不知有正则没有

Answer 1

可以用变通的方法，先取得c.value值，然后判断是否存在所列出的学科，用函数instr(1,c.value,"语文")判断是否＞＝0，如果大于等于0，那说明里面有语文这个学科，就先提取语文，然后再做循环，看存不存在其他学科，如果有再提取。