¿Cómo dividir automáticamente una gran cantidad de datos en pequeños lotes de tablas independientes en Excel y conservar los encabezados de las tablas? ¿Cómo dividir automáticamente grandes cantidades de datos en pequeños lotes de múltiples tablas independientes en Excel y conservar los encabezados de las tablas?
El siguiente código supone que el encabezado son las dos primeras filas y que la columna A no está vacía
Sub aaa()
Atenuar una hoja como hoja de trabajo, bsheet como hoja de trabajo
Atenuar i mientras
Establecer una hoja = ActiveSheet
i = 3
Hacer hasta una hoja = ActiveSheet
Hacer hasta una hoja = ActiveSheet .
i = 3
Hacer hasta una hoja.Cells(i, 1) = ""
Filas("1:2").Select
Selección.Copiar
Hojas.Agregar después:=Hojas(Hojas.Contar)
Establecer bsheet = ActiveSheet
ActiveSheet.Paste
asheet.Add After：=Sheets(Sheets.Count)