¿Cómo dividir un Excel con 1 millón de filas de datos en 50 Excel con 20.000 filas de datos cada uno?

Estimado, esto sólo se puede hacer mediante programación VBA. Después de ejecutar el siguiente programa, se generarán 50 archivos con números de serie numéricos en la misma carpeta que los archivos fuente.

Abra su archivo Excel, presione "Alt F11" para abrir la ventana de edición de VBA, luego haga doble clic en la hoja de trabajo correspondiente a la izquierda y pegue el siguiente código en el espacio en blanco a 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.

El número de líneas de encabezado en el código y el número de líneas en cada archivo se pueden ajustar usted mismo.

¿Sub? Lecho fluidizado circulante()

¿Oscuro? r,? do,? I,? ¿WJhangshu? ¿WJshu? ¿Por cierto? ¿Como? ¿Largo

r? =?rango("A"?amp?rows.count). final (xlArriba). ¿Fila

c? =?celda(1,?columna.recuento). Fin (xlAIzquierda). ¿Cilíndrico

bt? =?1?Línea de título

WJhangshu? =?20000?El número de líneas en cada archivo

WJshu? =?IIf(r?-?bt?Mod?20000,?Int((r?-?bt)?/?WJhangshu)?Int((r?-?bt)?/?WJhangshu)? ?1)

¿Para qué? ¿I? =?1?¿Adónde ir? WJshu

Libro de trabajo. Añadir

aplicación. ¿Mostrar alerta? =?ActiveWorkbook incorrecto

. ¿Guardar como? Nombre de archivo: = Este libro de trabajo. ¿camino? ¿amperio? "\"?¿amperio? ¿Formato (i,? Cadena (Len (WJshu),? 0))? ".xlsx "

Aplicar. ¿Mostrar alerta? =?real

Este libro de trabajo. ActiveSheet.Range("A1 "). cambiar el tamaño (bt,? c). ¿Copiar? Hoja Activa. Range(" A1 ")

Este libro de trabajo. ActiveSheet.Range("A "?amp?bt??i?*?WJhangshu??1).Resize(WJhangshu,c). ¿Copiar? _

Hoja Activa. Rango("A"?amp?bt??1)

ActiveWorkbook. ¿cerca? ¿El verdadero

entonces

final? Submarino