Como transpor colunas para linhas e inserir novas linhas para preencher os dados no Excel?
Neste artigo, apresento um código VBA para transpor colunas em linhas e inserir novas linhas para preencher os dados conforme a captura de tela mostrada abaixo. Se você estiver interessado nesta operação, vá para abaixo para obter mais detalhes.
Transpor e inserir linhas com VBA
Transpor e inserir linhas com VBA
Não há uma maneira direta de transpor um intervalo e inserir linhas para preencher os mesmos dados, mas aqui posso apresentar um código VBA para resolver rapidamente essa tarefa.
1. Pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o código VBA abaixo na janela Módulo. Veja a imagem:
VBA: transpor e inserir linhas.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Pressione F5 para executar o código e, em seguida, selecione o intervalo de dados que deseja transpor e insira linhas na caixa de diálogo pop-up. Veja a imagem:
4. Clique OK. E o intervalo selecionado foi convertido conforme a imagem abaixo mostrada.
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!
