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

Question

Olá!
Tenho uma planilha no excel com mais de 40.000 linhas, apesar de muitas linhas ela é leve.
Porém preciso "cortar" e fazer com que a cada 100 linhas, ela crie uma aba diferente e puxe essas linhas para essa aba.
Existe algum modo de eu fazer isso?

Answer 1

Oi Maria

Eu sou AnnaThomas e eu ficaria feliz em ajudá-lo com sua pergunta. Neste Fórum, somos consumidores da Microsoft como você.

Você pode fazer isso usando o VBA (Visual Basic for Applications) no Excel. Aqui está um exemplo de como você pode realizar essa tarefa:

Pressione ALT + F11 para abrir o editor VBA. Insira um novo módulo clicando em "Inserir" e selecionando "Módulo". Cole o seguinte código no novo módulo:

Sub DivideData()

Dim ws como planilha Dim wsNew As Planilha Dim i As Long Dim rng As Gama Dim LastRow Quanto Tempo

'Determinar a última linha na planilha Definir ws = ThisWorkbook.Sheets("Sheet1") ' Alterar "Sheet1" para o nome da sua planilha LastRow = ws. Células(ws. Rows.Count, "A"). Fim(xlUp). Remar

'Dividir dados em 100 linhas por planilha Para i = 1 Para LastRow Etapa 100 Defina rng = ws. Gama ("A" & i & ":A" & i + 99) Definir wsNew = ThisWorkbook.Sheets.Add(After:=ws) wsNew.Name = "Folha" & CStr(i / 100 + 1) rng. EntireRow.Copy wsNew.Range("A1") Próximo i

Fim do Sub

Pressione F5 para executar o código.

Esse código criará uma nova planilha para cada 100 linhas na planilha original e copiará essas 100 linhas para a nova planilha.

Espero que isso ajude ;-), deixe-me saber se isso é contrário ao que você precisa, eu ainda seria útil para responder a mais de suas perguntas.

Atenciosamente

AnnaThomas

Retribua à comunidade. Ajude a próxima pessoa com esse problema, indicando se essa resposta resolveu seu problema. Clique em Sim ou Não na parte inferior.

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou expressões estranhas.