Tablas y subtablas de Excel, los detalles son los siguientes, ayude a los expertos a escribir un VBA.
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