危宿:
这边写了2种供题主参考,如有帮助,还望采纳'自定义公式-按ALT+F11-插入-模块Function提取1(aAsString)Fori=1ToLen(a)Ifi=1ThenIfMid(a,i,1)=Mid(a,i+1,1)AndMid(a,i+1,1)=Mid(a,i+2,1)AndMid(a,i+2,1)Mid(a,i+3,1)Then提取1=提取1&","&Mid(a,i,1)&Mid(a,i,1)&Mid(a,i,1)ElseIfMid(a,i,1)=Mid(a,i+1,1)A....