Colección de citas famosas - Slogan de motivación - Tablas y subtablas de Excel, los detalles son los siguientes, ayude a los expertos a escribir un VBA.

Tablas y subtablas de Excel, los detalles son los siguientes, ayude a los expertos a escribir un VBA.

Estimado, el siguiente código puede cumplir con sus requisitos.

Cree una nueva hoja de trabajo y asígnele el nombre "Resumen" (puede cambiar el nombre a voluntad). Luego presione "Alt+F11" para abrir la ventana de edición de VBA, haga doble clic en el resumen de la hoja de trabajo correspondiente a la izquierda y pegue el siguiente código en el espacio en blanco de la derecha. Cierre la ventana de VBA. Luego presione Alt+F8 para abrir la ventana "Macro", seleccione la macro que acaba de insertar y haga clic en "Ejecutar".

¿Sub? hz()?

¿Oscuro? por cierto? I,? r,? do,? norte,? ¿primero? ¿Como? ¿dragón?

¿Por cierto? =?1? ¿Cuántas líneas hay en el encabezado de la tabla? ¿Cuánto del 1 se debe cambiar aquí?

Celular. ¿Está claro?

¿Para qué? ¿I? =?1?¿Adónde ir? hoja. ¿Contar?

¿Y si? Hojas(1). ¿nombre? <>? Hoja Activa. ¿nombre? ¿Entonces qué?

¿Y si? ¿primero? =?0?¿Y entonces qué?

c? =?hoja(1). celda (1,? columna.recuento). Fin (xlAIzquierda). ¿Columna?

Hojas (1). rango("A1"). cambiar el tamaño (bt,? c). ¿Copiar? ¿Rango ("A1")?

n? =?bt? +?1:?Primero? =?1?

¿Fin? ¿si?

r? =?hoja(1). celda(fila.count,?"uno"). final (xlArriba). ¿Plan?

Hojas (1). range("A"?&?bt?+?1).resize(r?-?1,?c). ¿Copiar? rango("A"?& amp?n)?

n? =?n? +?r? -?Por cierto?

¿Fin? ¿si?

¿Siguiente?

¿Fin? Submarino