Cómo convertir caracteres chinos a Pinyin en Excel

1. Abra la tabla de Excel que desea convertir a Pinyin.

2. Presione "Alt+F11" para ingresar al estado de edición de Visual Basic. Esta es la interfaz de edición gris que ves.

3. Ejecute el comando "Insertar→Módulo" para insertar un nuevo módulo. Haga doble clic en el módulo insertado para ingresar al estado de edición de codificación del módulo;

4. Vea la siguiente interfaz

5. Copie y pegue todo el contenido siguiente en el espacio en blanco en el paso 4. .

Copiar el contenido al portapapeles

La función pinyin (p es una cadena) es una cadena

i = Asc(p)

Seleccione Caso 1

Caso-20319 a-20318: Pinyin = "a "

Caso-20317 a-20305: Pinyin = "ai "

Caso -20304 a -20296: Pinyin = "安"

Caso -20295 a -20293: pinyin = "ang "

Caso -20292 a -20284: Pinyin = "ao "

Caso-20283 a -20266: Pinyin = "白"

Caso-20265 a -20258: Pinyin = "白"

Caso -20257 a - 20243 : pinyin = "ban "

caso-20242 A-20231:pinyin = " bang "

Caso-20230 a-20052: pinyin = "宝"

Caso -20051 A -20037: Pinyin = "北"

Caso -20036 A -20033: pinyin = "ben "

caso-20032 A-20027:pinyin = " beng "

Caso -20026 A -20003: pinyin = "bi "

caso-20002 A-19991:pinyin = " bian "

Caso-10587 transferir -10545: Pinyin = "zhi "

Caso -10544 a -10534: Pinyin = "Zhong"

Caso -10533 a -10520: Pinyin = "zhou"

Caso -10519 a -10332: Pinyin = "Zhu"

Caso -10331 a -10330: pinyin = "zhua"

Caso -10329 a -10329: Pinyin = "zhuai "

Caso -10328 a -10323: Pinyin = "zhuan "

Caso -10322 a -10316: Pinyin = "zhuan"

caso - 10315 A-10310: pinyin = " zhui "

Caso-10309 a-10308: Pinyin = "Zhuo"

Caso-10307 a-10297: Pinyin = "Zhuo"

p>

Caso-10296 transferencia-10282: Pinyin= "zi"

Caso-10281 a-10275: Pinyin= "Zong"

Caso-10274 transferencia -10271: Pinyin= "Zou"

Caso-10270 transferencia-10263: Pinyin= "zu"

Caso-10262 transferencia-10261: Pinyin= "Anzu"

Caso-10260 transferencia-10257: Pinyin = "zui "

Caso-10256 transferencia-10255: Pinyin = "zun "

Caso-10254 transferencia-10254: Pinyin = "left "

Otros casos: Pinyin = p

Finalizar selección

Finalizar función

Función getpy(str)

Para i = 1 a Len(str)

getpy = getpy & amppinyin(Mid(str, I, 1))

Siguiente yo

Función final

6. Presione ALT+Q para cerrar la ventana de edición de Visual Basic y volver al estado de edición de Excel.

7. Seleccione la columna donde se debe colocar el pinyin convertido.

Por ejemplo, para convertir el contenido de la segunda fila de la columna B a Pinyin y colocarlo en la segunda celda de la columna D, ingrese la fórmula: =getpy(B2), donde B2 se refiere a las coordenadas de la celda de origen.

8. Si deseas eliminar los espacios entre pinyin. Pinyin sin espacios se coloca en la columna e. Si los datos sin espacios están originalmente en la celda D2 y el pinyin después del espacio se coloca en la celda E2, ingrese en la celda E2:

=Reemplazar (D2, " ", "" )