Como criar novas planilhas para cada linha do Excel?
Supondo que você tenha uma tabela de pontuação com o nome de todos os alunos na coluna A. Agora você deseja criar novas planilhas com base nesses nomes na coluna A e fazer com que cada planilha contenha os dados de um aluno exclusivo. Ou apenas crie uma nova planilha para apenas cada linha da tabela sem considerar os nomes na coluna A. Neste vídeo, você obterá métodos para alcançá-lo.
Crie novas planilhas para cada linha com o código VBA
Crie novas planilhas para cada linha com o utilitário Dividir Dados do Kutools para Excel
Crie novas planilhas para cada linha com o código VBA
Com os códigos a seguir, você pode criar uma nova planilha com base nos valores das colunas ou apenas criar novas planilhas para cada linha no Excel.
1. Pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. E, em seguida, cole o seguinte código no Módulo janela.
Código VBA: crie uma nova planilha para cada linha com base na coluna
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End SubNota: A1: C1 é o intervalo de títulos de sua tabela. Você pode alterá-lo com base em suas necessidades.
3. Pressione F5 chave para executar o código, então novas planilhas são criadas após todas as planilhas da pasta de trabalho atual, conforme a captura de tela abaixo:
Se quiser criar novas planilhas diretamente para cada linha sem considerar o valor da coluna, você pode usar o código a seguir.
Código VBA: crie diretamente uma nova planilha para cada linha
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End SubDepois de executar o código, cada linha da planilha ativa será colocada em uma nova planilha.
Nota: A linha de título também será colocada em uma nova planilha com este código VBA.
Crie novas planilhas para cada linha com o utilitário Dividir Dados do Kutools para Excel
Na verdade, o método acima é complicado e difícil de entender. Nesta seção, apresentamos a você o Dividir Dados utilidade de Kutools for Excel.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione a tabela que você precisa usar para criar novas planilhas e clique em Kutools Plus> Dados de cuspir. Veja a imagem:
2. No Divida os dados em várias planilhas caixa de diálogo, faça o seguinte.
A. Para criar novas planilhas com base no valor da coluna:
B. Para criar diretamente novas planilhas para cada linha:
uma nova pasta de trabalho é criada com todas as novas planilhas dentro. Veja as imagens abaixo.
Criação de novas planilhas para cada linha com base no valor da coluna:
Criação de uma nova planilha para cada linha sem considerar o valor da coluna:
Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Crie novas planilhas para cada linha com o utilitário Dividir Dados do Kutools para Excel
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
Guia do Office 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!
