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.
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:
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
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...
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!