Dividir Dados em Múltiplas Planilhas por contagem de linhas no Excel
Dividir eficientemente um grande intervalo de dados em múltiplas folhas do Excel com base num número específico de linhas pode simplificar significativamente a gestão dos seus dados. Por exemplo, ao dividir um conjunto de dados a cada 5 linhas por várias folhas, torna-o mais organizado e fácil de gerir. Este guia apresenta dois métodos práticos para realizar esta tarefa de forma rápida e simples.
Dividir Dados em Múltiplas Planilhas por contagem de linhas com código VBA
Dividir Dados em Múltiplas Planilhas por contagem de linhas com Kutools para Excel
Dividir Dados em Múltiplas Planilhas por contagem de linhas com código VBA
O código VBA seguinte permite-lhe dividir as linhas em múltiplas folhas de cálculo com base no número de linhas. Siga estes passos:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do módulo.
VBA: Dividir Dados em folhas de cálculo 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. Em seguida, prima a tecla F5; na caixa de diálogo que surge, selecione a linha de cabeçalho (ver imagem):
4. Depois, clique em OK e, na segunda caixa de diálogo, selecione o intervalo de dados que pretende dividir por contagem de linhas (ver imagem):
5. Continue a clicar no botão OK; na terceira caixa de diálogo, introduza o número de linhas pelo qual pretende dividir (ver imagem):
6. Em seguida, clique no botão OK; os dados serão divididos em várias folhas de cálculo com base no número de linhas (ver imagem):
Dividir Dados em Múltiplas Planilhas por contagem de linhas com Kutools para Excel
Se considerar o código VBA complexo, o Kutools para Excel oferece uma solução rápida e intuitiva para resolver eficazmente o problema da divisão de dados. A funcionalidade Dividir Dados simplifica todo o processo operacional, permitindo que utilizadores de qualquer nível consigam facilmente dividir grandes conjuntos de dados em múltiplas folhas de cálculo — sem necessidade de conhecimentos avançados de programação — e garantindo assim uma gestão eficaz dos seus dados.
Se tiver instalado o Kutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo de dados que pretende dividir e, em seguida, clique em KUTOOLS PLUS > Dividir Dados (ver imagem):
3. Na caixa de diálogo Dividir Dados em Múltiplas Planilhas:
- Selecione Valor fixo em Critério de Divisão e introduza o número de linhas que pretende dividir em cada folha de cálculo.
- Se os seus dados incluírem cabeçalhos e quiser incluí-los em cada nova folha de cálculo criada a partir da divisão, ative a opção Incluir títulos. ()Dica: pode indicar o número de linhas de cabeçalho consoante a estrutura dos seus dados.)
- Depois, pode especificar as regras de divisão. Na secção Nome das planilhas criadas, selecione as regras Regras na lista suspensa e adicione também um Prefixo ou Sufixo aos nomes das folhas.
4. Após definir as configurações, clique em OK; os dados selecionados são divididos em múltiplas folhas de um novo livro de trabalho a cada 5 linhas, e os cabeçalhos são inseridos em cada nova folha (ver imagem):
Artigos Relacionados:
- Dividir Dados em Múltiplas Planilhas com base na coluna
- Imagine que tem uma folha de cálculo com um grande número de linhas de dados e precisa, neste momento, de dividir esses dados em várias folhas com base na coluna **Nome** (ver imagem seguinte), cujos valores foram inseridos aleatoriamente. Poderá começar por ordenar os dados e, em seguida, copiá-los e colá-los manualmente, um a um, em novas folhas. Contudo, este processo exigirá muita paciência devido à repetição constante de cópia e colagem. Hoje, vou mostrar-lhe alguns truques rápidos para resolver esta tarefa com eficiência.
- Combinar Linha duplicada e somar os valores no Excel
- No Excel, é comum encontrar conjuntos de dados com entradas duplicadas. Frequentemente, deparar-se-á com um intervalo de dados em que o principal desafio consiste em combinar eficientemente essas linhas duplicadas enquanto soma, ao mesmo tempo, os valores numa coluna correspondente, conforme ilustrado na imagem seguinte. Neste contexto, exploraremos diversos métodos práticos que o ajudarão a consolidar dados duplicados e a agregar os respetivos valores, aumentando assim a clareza e a utilidade das suas pastas de trabalho do Excel.
- Fundir duas ou mais tabelas numa só com base em Coluna Chave
- Imagine que tem três tabelas num livro e pretende combiná-las numa única tabela com base nas respetivas Colunas Chave, obtendo o resultado apresentado na imagem seguinte. Embora esta tarefa possa parecer complicada para a maioria dos utilizadores, não se preocupe: neste artigo, vou mostrar-lhe alguns métodos eficazes para resolver este desafio.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos