1. Abra el archivo de Excel que desea dividir.
2. Presione Alt+F11 para abrir el Editor de Visual Basic.
3. En el Explorador de proyectos , haga clic derecho en Este libro de trabajo módulo y seleccione Insertar> Módulo .
4. Copie el siguiente código en el módulo:
```
Subdividirfilas()
Atenuar ws como hoja de trabajo
Atenuado i Mientras, j Mientras tanto
Nombre de archivo tenue como cadena
Celda tenue como rango
Para cada ws en este libro de trabajo. Hojas de trabajo
i =2 'Comenzar desde la segunda fila (encabezado)
j =1 'Contador de los nuevos archivos
nombre de archivo =ws.Nombre &"_" &j
Libros de trabajo.Agregar.Hojas de trabajo(1).Nombre =ws.Nombre
Mientras que Cells(i, 1) <> "" 'Recorre hasta la última celda que no esté vacía
Filas (i). Destino de copia:=Libros de trabajo (nombre de archivo). Hojas (1). Filas (j)
Si mod 1000 =0 entonces
ActiveWorkbook.SaveAs Nombre de archivo:=nombre de archivo, Formato de archivo:=xlWorkbookDefault, CreateBackup:=False
Aplicación.DisplayAlerts =Falso
ActiveWorkbook.Cerrar
Debug.Print "Dividir " &ws.Name &" en " &nombre de archivo
j =j + 1
Libros de trabajo.Agregar.Hojas de trabajo(1).Nombre =ws.Nombre
nombre de archivo =ws.Nombre &"_" &j
Terminar si
yo =yo + 1
Encaminarse a
ActiveWorkbook.SaveAs Nombre de archivo:=nombre de archivo, Formato de archivo:=xlWorkbookDefault, CreateBackup:=False
Aplicación.DisplayAlerts =Falso
ActiveWorkbook.Cerrar
Debug.Print "Terminó de dividir " &ws.Name &" en archivos " &j &""
siguiente ws
Debug.Print "Todas las hojas de trabajo se dividieron correctamente"
Aplicación.DisplayAlerts =Verdadero
Subtítulo final
```
5. Cierre el Editor de Visual Basic y regrese al archivo de Excel.
6. Haga clic en Desarrollador. y luego haga clic en Macros botón.
7. En la Macro cuadro de diálogo, seleccione SplitRows macro y haga clic en Ejecutar botón.
Opción 2:usar texto en columnas
1. Abra el archivo de Excel que desea dividir.
2. Seleccione las celdas que desea dividir en archivos separados.
3. Vaya a Datos y haga clic en Texto a columnas botón.
4. En el Texto a columnas asistente, seleccione la opción Delimitada. opción y haga clic en Siguiente .
5. En los Delimitadores sección, seleccione la Coma casilla de verificación y haga clic en Siguiente .
6. En la vista previa de datos sección, verifique que los datos estén divididos correctamente y haga clic en Finalizar .
7. Los datos seleccionados se dividirán en columnas separadas.
8. Guarde cada columna como un archivo independiente yendo a Archivo. pestaña, haciendo clic en Guardar como y eligiendo el Libro de Excel formato de archivo.