Código EXCEL VBA, explique_

"aplicación. Actualización de pantalla = falso" La actualización de pantalla está desactivada.

Dimsh es una hoja de trabajo, I% 'Defina sh como una hoja de trabajo, I es un número entero.

i = 0 'I = 0

Para cada sh en la hoja de trabajo 'Cada hoja de trabajo en el excel actual.

i = i + 1 ' i = i+1

rango(" AA " & ampI) = right(sh.name,len(sh.name)-5)' La columna aa es igual al nombre de la hoja de trabajo actual, comenzando con el quinto carácter desde la derecha.

A continuación, aquí está el bucle for que obtendrá todas las hojas de trabajo que existen actualmente en Excel y completará la columna AA.

Columna("AA:AA"). Ordenar palabra clave 1:=Rango("AA1 "), Orden1:=xlAscendente, Encabezado:=xlGuess, _

OrdenPersonalizado:=1, MatchCase:=False, Orientación:=xlTopToBottom, SortMethod _

OrderCustom:=1 p>

:= xlpinyin, opción de datos 1: = xlorthonormal' una clasificación de columnas

For i = 1 a la hoja de trabajo. recuento - 1

hojas("hojas"&CStr(rango("AA"&i))). Avanzar:= Zhang(I)

Siguiente paso'' Mueve la tabla ordenando.

Rango("AA: aa"). Borre el contenido de la columna aa.

Hoja1. Active la actividad

actualización de pantalla "application . screen update = true".