¿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