¿Cómo obtener rápidamente la tabla de datos deseada a través del código Excel vba?

En el proceso de uso de Excel, podemos encontrarnos con este problema. Un libro tiene docenas de hojas de trabajo, por lo que las hojas de trabajo no están en el orden requerido. Queremos ordenar estas hojas de trabajo rápidamente. ¿Tiene alguna buena manera de resolver este problema?

Aún es necesario resolver problemas complejos con código VBA. alt f 11: haga doble clic en este libro y abra el cuadro de edición de código del libro.

Copia el siguiente código.

subml()

Atenuar sht como hoja de trabajo, k amp

[answer:answer] = " "

Borrar datos de una columna .

[a1] = "Directorio"

k = 1

Para cada cosa en la hoja de trabajo

Recorre el libro de cada hoja de trabajo .

k = k 1

Valor k acumulado

Celdas(k, 1) = sht. Nombre

Coloque los nombres de las hojas de trabajo en la columna A de la tabla.

Luego

Finalizar conector

Inserte un botón en las opciones de desarrollador. ¡Qué! ¿Por qué su software no tiene esta pestaña? Mira mi próxima experiencia y sabrás cómo hacerla realidad.

Después de dibujar el marco del botón, el software le pedirá que especifique el código de macro para él. Por supuesto, eliges generar un directorio.

Haga clic para obtener el directorio (cambié el nombre o déjeme un mensaje) y el directorio se generará mágicamente.

Filtrar y ordenar el directorio, o ordenar manualmente.

Luego ingresa estos códigos en el cuadro de edición de códigos.

Subordenar tabla()

Atenuar sht como hoja de trabajo, shtname$, i amp

Establecer sht = ActiveSheet

Cambiar la variable sht se establece en la hoja de trabajo actualmente activa, que es el directorio.

Para i = 2 a sht. celda (fila. recuento, 1). fin(3). Ordenar

Recorre los datos de la columna A de la hoja de trabajo, excepto A1.

shtname = mierda. Celda (I, 1)

Asigne el valor de la columna a a la variable de cadena shtname.

Hoja de trabajo(shtname). Mover a: = Zhang (i - 1)

Mueve las hojas de trabajo una por una.

Entonces

Shhh. Activar

Reactivar el directorio.

Conector final

Luego dibuja un botón para especificar la hoja de clasificación.

Esto es lo que sucede después de cambiar el nombre del botón. Presione el botón.

Algo mágico sucedió, las hojas de trabajo realmente cambiaron de orden.