Colección de citas famosas - Slogan de motivación - Programación en Excel VBA, comodines, reemplazo por lotes, filtrado de todos los números, letras, puntuación común y caracteres chinos.
Programación en Excel VBA, comodines, reemplazo por lotes, filtrado de todos los números, letras, puntuación común y caracteres chinos.
El código es el siguiente: (ver archivo adjunto para ver el archivo de muestra)
Sub? prueba()
¿Atenuado? regX? ¿Como? Objeto,? ¿s? ¿Como? Cadena,? I,? j
¿Configuración? regX? =?CreateObject("vbscript.regeXP ")
¿Para qué? ¿I? =?1?¿Adónde ir? celda(filas.count,?1).end(3). ¿Qué usar para la fila
? regX
. ¿mundial? =?Real
¿Para qué? j? =?2?¿Adónde ir? Cinco
¿Elegir? ¿caso? j
¿Caso? ¿2
s? =?"[^\u4e00-\u9fa5]"? Tome los caracteres chinos como ejemplo
¿Caso? ¿Tres? =?" \D "? Tomar un número
¿Caso? ¿Cuatro? =?"[^a-zA-Z]"? Recibir la carta
¿Caso? ¿Cinco? =?"[\u4e00-\u9fa50-9a-zA-Z]"? ¿Termina con este símbolo
? Elige
. ¿patrón? =?s
celda(i,?j)? =?. Reemplazar(celda(I,1),?"")
¿Siguiente? j
¿Fin? ¿Con
entonces
final? Submarino