Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo cambiar la fuente del contenido especificado en VBA?

¿Cómo cambiar la fuente del contenido especificado en VBA?

Sub demostración()

Con Range("A1")

.Font.Name = "Microsoft Yahei"

Para i = 1 a Len(.Value)

Si Mid(.Value, i, 1) Como "[一-饥]" Entonces .Characters(i, 1).Font.Name = "宋体"

Siguiente

Terminar con

Fin Sub