Hay muchas hojas de trabajo chinas en el libro de trabajo Execl, cómo ordenarlas automáticamente según Pinyin. Gracias

Pegue el siguiente código y presione f5 para ordenar las hojas de trabajo en el libro actual por pinyin.

Ps: los módulos se pueden eliminar después de ordenarlos.

Subprueba()

Hojas. Agregue la hoja de trabajo(1)

t =hoja. Cuente

Con la tabla (1)

para i = 2 a t

. Celda(I,1) = Hoja(I). Nombre

Luego

Ordenar.SortFields.Add. Celda (1, 1)

Con. Clasificación

. SetRange rango(" A:A ")

. Aplicar

Termina con

For i = 2 to t

hoja(.cell(id1,1).value). Mover Hoja (I)

Luego

Aplicar. showalert=false

. Eliminar

aplicación. showalert=true

termina con

conector final