| ©«¤l262 ¥DÃD8 ºëµØ0 ¿n¤À280 ÂI¦W0  §@·~¨t²Îxp ³nÅ骩¥»Office 2007 ¾\ŪÅv20 ©Ê§O¨k ¨Ó¦ÛHK µù¥U®É¶¡2015-8-11 ³Ì«áµn¿ý2025-3-24 
 
 | 
                
| Function zz(x, y) For i = 1 To Len(x)
 If Mid(UCase(x), i, 1) = UCase(y) Then a = a & ";" & i
 Next
 zz = Mid(a, 2)
 End Function
 
  ¦Û©w¨ç¼Æ.zip (8.6 KB) | 
 |