Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

Como dividir datos en varias follas de traballo por recuentos de filas en Excel?

Por exemplo, teño un intervalo de lista de datos, agora quero dividilo en varias follas de cálculo por reconto de filas, neste exemplo, dividiréme por todas as filas 5 (ver as seguintes capturas de pantalla). ¿Hai algunha maneira de axudarnos a resolver este problema rapidamente? Aquí vou presentar dous trucos para facelo fácilmente.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Dividir datos en varias follas de traballo por reconto de filas con código VBA

Dividir datos en varias follas de traballo por reconto de filas con Kutools para Excel


frecha burbulla dereita azul Dividir datos en varias follas de traballo por reconto de filas con código VBA


O seguinte código VBA pode axudarche a dividir as filas en varias follas de traballo por reconto de filas, faga o seguinte:

1. Manteña o botón ALT + F11 clave para abrir a Microsoft Visual Basic para aplicacións fiestra.

2. Prema Inserir > Módulos, e pegue o seguinte código na xanela do módulo.

VBA: dividir datos en follas por reconto de fileiras en Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. A continuación, preme F5 clave para executar o código e aparece un diálogo para seleccionar un intervalo para dividir e prema en OK, e outro diálogo para que especifique o reconto das filas. Ver captura de pantalla:

4. prema OK, eo rango divídese en follas múltiples polo reconto das fileiras.

Nota: As follas divididas colócanse na parte traseira da folla de cálculo mestra.


frecha burbulla dereita azul Dividir datos en varias follas de traballo por reconto de filas con Kutools para Excel

O código anterior só pode dividir os datos polo reconto de filas especificado e non engadirá o título de cada información de folla de cálculo se os seus datos teñen o título.

Pero con Kutools para Excel'S Dividir datos, non só pode inserir os encabezados para cada información de folla de cálculo, senón tamén especificar os novos nomes de follas de traballo divididas.

Kutools para Excel Inclúe máis ferramentas 300 útiles a man. Gratis para probar sen límite nos días 30. Get it Now

Se instalou Kutools for Excel, faga o seguinte:

1. Seleccione o intervalo de datos que desexa dividir.

2. Prema Empresa > Ferramentas de folla de cálculo > Dividir datos (Ou Empresa > Dividir datos ), vexa a captura de pantalla:

doc-split-data-by-rows6

3. no Dividir datos en varias follas de traballo caixa de diálogo:

  • seleccionar Fixo filas de Dividida en base a e introduza o número de filas que desexa dividir para cada folla de cálculo. (Se os seus datos teñen cabeceiras e quere inserilos en cada nova folla dividida, verifique Os meus datos teñen cabeceiras opción.)
  • Entón pode especificar os nomes de follas de traballo divididas, debaixo da Nome de novas follas de cálculo sección, seleccione as regras dos nomes da folla de traballo desde o Regras lista desplegable, pode engadir a Prefixo or sufixo para os nomes das follas tamén. Ver captura de pantalla:

doc-split-data-by-rows7

4. Despois de especificar a configuración, prema en OK, e os datos seleccionados dividíronse en varias follas de traballo dun novo caderno de traballo por cada liña 5. E os encabezados insírense para cada nova folla de cálculo. Ver captura de pantalla:

doc-split-data-by-rows8

Fai clic para saber máis sobre esta función de Split Data.

Artigo relacionado:

Como dividir os datos en varias follas de traballo en función da columna en Excel?



Ferramentas de produtividade recomendadas

Tabulación de Office

estrela de ouro1 Traia páxinas útiles para Excel e outro software de Office, como Chrome, Firefox e Internet Explorer novo.

Kutools para Excel

estrela de ouro1 Sorprendente! Aumenta tu productividad en 5 minutos. Non necesitas habilidades especiais, garda dúas horas todos os días.

estrela de ouro1 300 Novidades para Excel, Excel moi fácil e poderoso:

  • Combina celas / filas / columnas sen perder datos.
  • Combina e consolida varias follas e libros de traballo.
  • Comparar intervalos, copiar varios intervalos, converter texto a data, conversión de unidade e moeda.
  • Conta por cores, subtotales de paginación, clasificación avanzada e filtro super,
  • Máis Seleccionar / Inserir / Eliminar / Texto / Formato / Ligazón / Comentario / Libros / Follas de ferramentas ...

Pantalla de Kutools para Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?