Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo eliminar letras que no sean chinas, que no sean dígitos ni mayúsculas de una cadena en VBA? No regular

¿Cómo eliminar letras que no sean chinas, que no sean dígitos ni mayúsculas de una cadena en VBA? No regular

Sub?aaa()

Con?CreateObject("vbscript.RegExp")

.Global?=?True

. ignorecase?=?True

.Pattern?=?"[^0-9A-Za-z一-饥]"

[a1]?=?.Replace([a1 ],?"")

End?With

End?Sub Agregar ignorecase puede cambiar el patrón a "[^0-9a-z一-饥]"

上篇: Cómo resolver el problema de que la computadora del sistema XP no puede abrir el punto de acceso compartido 下篇: ¿Cuál es mejor, la cadena rk7x o motomax10x?