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

Dividir eficientemente um grande intervalo de dados em várias planilhas do Excel com base em uma contagem específica de linhas pode simplificar 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 essa tarefa de forma rápida e fácil.

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

Dividir dados em várias planilhas por contagem de linhas com Kutools para Excel

Dividir 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. Pressione e segure a tecla ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

VBA: Dividir 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. Em seguida, pressione a tecla F5, na caixa de diálogo que aparecer, selecione a linha do cabeçalho, veja a captura de tela:

4. Depois, clique em OK, e na segunda caixa de diálogo, selecione o intervalo de dados que deseja dividir por contagem de linhas, veja a captura de tela:

5. Continue clicando no botão OK, na terceira caixa de diálogo, insira o número de linhas que deseja dividir, veja a captura de tela:

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

Dividir dados em várias planilhas por contagem de linhas com Kutools para Excel

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

Se você instalou o Kutools para 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. Na caixa de diálogo Dividir Dados em Múltiplas Planilhas:

• Selecione Linhas Fixas na opção Critério de Divisã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, marque a opção Meus dados contêm cabeçalhos. (Dica: você pode inserir o número de linhas do cabeçalho com base nos seus dados.)
• Depois, você pode especificar os nomes das planilhas divididas, na seção Nome das Novas Planilhas, selecione as regras dos nomes das planilhas na lista suspensa Regras. Você também pode adicionar Prefixo ou Sufixo para os nomes das planilhas.

4. Após especificar as configurações, clique em OK, e os dados selecionados serão 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 captura de tela:

Artigos Relacionados: