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 Split Data 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 Sub
Note: 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 Sub
Depois de executar o código, cada linha da planilha ativa será colocada em uma nova planilha.
Note: 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 Split Data 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 um teste gratuito (30 dias) 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 Split Data do Kutools para Excel
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!