Ir para o conteúdo principal

Divida os dados em várias planilhas por contagem de linhas no Excel

A divisão eficiente de um grande intervalo de dados em várias planilhas do Excel com base em uma contagem de linhas específica pode agilizar o gerenciamento de dados. Por exemplo, dividir um conjunto de dados a cada 5 linhas em várias planilhas pode torná-lo mais gerenciável e organizado. Este guia oferece dois métodos práticos para realizar esta tarefa de forma rápida e fácil.

Divida os dados em várias planilhas por contagem de linhas com código VBA

Divida os dados em várias planilhas por contagem de linhas com o Kutools para Excel


Divida os dados em várias planilhas por contagem de linhas com código VBA

O seguinte código VBA pode ajudá-lo a dividir as linhas em várias planilhas por contagem de linhas, faça o seguinte:

1. Segure o ALT + F11 chave para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

VBA: divida os dados em planilhas por contagem de linhas no Excel

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Então aperte F5 chave, na caixa de diálogo exibida, selecione a linha de cabeçalho, consulte a captura de tela:

4. Então clique OKe, na segunda caixa de prompt, selecione o intervalo de dados que deseja dividir pela contagem de linhas, consulte a captura de tela:

5. Continue clicando OK botão, na terceira caixa de prompt, digite o número de linhas que você deseja dividir, veja a captura de tela:

6. Então clique OK botão, os dados foram divididos em várias planilhas com base no número de linhas, veja a captura de tela:


Divida os dados em várias planilhas por contagem de linhas com o Kutools para Excel

Se você acha que o código VBA é complexo, Kutools for Excel oferece uma solução rápida e intuitiva para resolver com eficiência o problema de divisão de dados. Esse Dividir Dados O recurso simplifica o processo de operação, permitindo que usuários de qualquer nível de habilidade dividam facilmente grandes conjuntos de dados em várias planilhas sem a necessidade de conhecimento profundo de programação, facilitando o gerenciamento eficaz de dados.

Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now

Se você instalou Kutools for Excel, faça o seguinte:

1. Selecione o intervalo de dados que deseja dividir. Em seguida, clique em Kutools Plus > Dividir Dados, veja a captura de tela:

3. No Divida os dados em várias planilhas caixa de diálogo:

  • Selecionar Linhas fixas da Dividir com base em opção e insira o número de linhas que deseja dividir para cada planilha.
  • Se seus dados possuem cabeçalhos e você deseja inseri-los em cada nova planilha dividida, verifique Meus dados têm cabeçalhos opção. (Dica: você pode inserir o número de linhas do pastor com base em seus dados.)
  • Em seguida, você pode especificar os nomes da planilha dividida, no Nome da nova planilha seção, selecione as regras de nomes de planilha da Regras lista suspensa, você pode adicionar o Prefixo or Sufixo para os nomes das folhas também. 

4. Depois de especificar as configurações, clique em OK, e os dados selecionados foram divididos em várias planilhas de uma nova pasta de trabalho a cada 5 linhas. E os cabeçalhos são inseridos para cada nova planilha. Veja a imagem:

Note: Para aplicar este recurso, por favor baixe e instale o Kutools para Excel em primeiro lugar.

Artigos relacionados:

  • Divida os dados em várias planilhas com base na coluna
  • Suponha que você tenha uma planilha com enormes linhas de dados e agora precise dividir os dados em várias planilhas com base na coluna Nome (veja a captura de tela a seguir) e os nomes sejam inseridos aleatoriamente. Talvez você possa classificá-los primeiro e depois copiá-los e colá-los um por um em outras novas planilhas. Mas isso exigirá paciência para copiar e colar repetidamente. Hoje falarei sobre alguns truques rápidos para resolver essa tarefa.
  • Combine linhas duplicadas e some os valores no Excel
  • No Excel, é comum encontrar um conjunto de dados com entradas duplicadas. Freqüentemente, você pode se deparar com uma série de dados em que o principal desafio é combinar com eficiência essas linhas duplicadas e, ao mesmo tempo, somar os valores em uma coluna correspondente, conforme mostrado a seguir na captura de tela. Nesse contexto, nos aprofundaremos em vários métodos práticos que podem ajudá-lo a consolidar dados duplicados e agregar seus valores associados, aumentando a clareza e a utilidade de suas pastas de trabalho do Excel.
  • Mesclar duas ou mais tabelas em uma com base nas colunas principais
  • Supondo que você tenha três tabelas em uma pasta de trabalho, agora você deseja mesclar essas tabelas em uma tabela com base nas colunas-chave correspondentes para obter o resultado conforme mostrado na captura de tela abaixo. Esta pode ser uma tarefa problemática para a maioria de nós, mas, por favor, não se preocupe, neste artigo, irei apresentar alguns métodos para resolver este problema.

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (25)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Very useful thank u so much
This comment was minimized by the moderator on the site
Its awesome!
Rated 5 out of 5
This comment was minimized by the moderator on the site
But header is not retaining in the output. Please guide me if any solution.
This comment was minimized by the moderator on the site
Can we split this same data but by using a code in php?
This comment was minimized by the moderator on the site
U are the savior my brother. Take love from Bangladesh <3 
This comment was minimized by the moderator on the site
Is there a way to keep the header across all worksheet?
For example, row 1 is the column names and row 2 to row 51 are my data. When I split it into 10 worksheets, I hope to have row 1 be the header and row 2-6 be the data.
This comment was minimized by the moderator on the site
this was very helpful. thank you
This comment was minimized by the moderator on the site
I have 20 million data in excel. I need to segregate it with first 2500 rows followed by 250 data so on. How can I do it quickly.
This comment was minimized by the moderator on the site
Minmatar detected :O
This comment was minimized by the moderator on the site
thank you. saved a lot of my time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations