Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Regista-te
x

or

Como dividir dados em múltiplas planilhas por contagem de linhas no Excel?

Por exemplo, eu tenho um intervalo de lista de dados, agora eu quero dividi-lo em múltiplas planilhas por contagem de linhas, neste exemplo, vou dividi-lo por cada linha 5 (veja as seguintes capturas de tela). Existem maneiras de nos ajudar a resolver este problema rapidamente? Aqui vou apresentar dois truques para você fazer isso facilmente.


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

Divisão de dados em múltiplas planilhas por linhas contam com código VBA

Dados divididos em múltiplas planilhas por linhas contam com Kutools para Excel


arrow blue right bubble Divisão de dados em múltiplas planilhas por linhas contam com código VBA


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

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

2. Clique inserção > Módulo, e cole o seguinte código na janela do módulo.

VBA: Divida dados em folhas por contagem de linhas no 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. Então aperte F5 chave para executar o código e uma caixa de diálogo aparece para selecionar um intervalo para dividir e, em seguida, clique em OK, e outro diálogo para você especificar a contagem de linhas. Ver captura de tela:

4. Clique OK, e o intervalo é dividido em várias folhas pela contagem de linhas.

notas: As folhas de cálculo divididas são colocadas na parte de trás da planilha principal.


arrow blue right bubble Dados divididos em múltiplas planilhas por linhas contam com Kutools para Excel

O código acima pode apenas dividir os dados pela contagem de linhas especificada, e não adicionará o título para cada dado da planilha se seus dados tiverem o título.

Mas com Kutools for Excel'S Dados divididos, você não só pode inserir os cabeçalhos para cada folha de cálculo, mas também pode especificar os novos nomes da planilha.

Kutools for Excel inclui mais do que 300 ferramentas úteis do Excel. Gratuito para tentar sem limitação nos dias 30. Get it Now

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

1. Selecione o intervalo de dados que deseja dividir.

2. Clique Empreendimento > Ferramentas de folha de cálculo > Dados divididos (Ou Empreendimento > Dados divididos ), veja a captura de tela:

doc-split-data-by-rows6

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

  • Selecionar Linhas corrigidas com servicos de Split baseado em opção e digite o número de contagem de linhas que deseja dividir para cada planilha. (Se seus dados tiverem cabeçalhos e você quiser inseri-los em cada planilha de divisão nova, verifique Meus dados têm cabeçalhos opção.)
  • Então você pode especificar os nomes da planilha dividida, sob a Novo nome da planilha seção, selecione as regras de nomes da planilha a partir do Regras lista suspensa, você pode adicionar o Prefixo or Sufixo para os nomes das folhas também. Ver captura de tela:

doc-split-data-by-rows7

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 por cada linha 5. E os cabeçalhos são inseridos para cada nova planilha. Ver captura de tela:

doc-split-data-by-rows8

Clique para saber mais sobre esse recurso de dados divididos.

Artigo relacionado:

Como dividir dados em múltiplas planilhas baseadas em coluna no Excel?



Ferramentas de produtividade recomendadas

Office Tab

ouro star1 Traga guias úteis para o Excel e outros softwares do Office, como o Chrome, o Firefox e o novo Internet Explorer.

Kutools for Excel

ouro star1 Surpreendente! Aumente sua produtividade em minutos 5. Não precisa de habilidades especiais, economize duas horas por dia!

ouro star1 300 Novos recursos para o Excel, Faça o Excel muito fácil e poderoso:

  • Mesclar células / linhas / colunas sem perder dados.
  • Combine e Consolide várias folhas e pastas de trabalho.
  • Comparar intervalos, copiar intervalos múltiplos, converter texto para data, unidade e conversão de moeda.
  • Contagem de cores, subtotais de paginação, classificação avançada e super filtro,
  • Mais Selecionar / Inserir / Excluir / Texto / Formato / Link / Comentário / Guias de trabalho / Ferramentas de trabalho ...

Tira de tela 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 · 10 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?