Como empilhar rapidamente várias colunas em uma coluna no Excel?
no Excel, a função Texto para colunas pode dividir uma célula em várias colunas com base no delimitador, mas se houver alguma maneira de empilhar várias colunas em uma coluna, como mostrado na imagem abaixo? Neste artigo, vou apresentar alguns truques para resolver essa tarefa rapidamente.
Empilhe várias colunas em uma com fórmula
Empilhe várias colunas em uma com VBA
Empilhe várias colunas em uma com Transform Range
Empilhe várias colunas em uma com fórmula
1. Selecione o intervalo que deseja empilhar e vá para o nome Box para dar um nome a este intervalo e pressione Entrar chave. Veja a imagem:
2. Em seguida, selecione uma célula em branco onde deseja colocar os resultados, insira esta fórmula =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), pressione Entee arraste a alça de preenchimento para baixo até que um erro seja exibido. Veja a imagem:
Empilhe várias colunas em uma com VBA
Aqui está um código VBA que também pode ajudá-lo.
1. Pressione Alt + F11 chaves para mostrar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, cole o código abaixo no Módulo.
VBA: Empilhar colunas em uma
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Pressione F5 para executar o código, uma caixa de diálogo é exibida para selecionar os dados de origem e clique em OK, para selecionar uma célula para colocar os resultados. Veja a imagem:
4. Clique OK. Agora as colunas foram empilhadas em uma coluna.
Empilhe várias colunas em uma com Transform Range
Aplicar Kutools for Excel'S Faixa de transformação utilitário também pode ajudá-lo a resolver esse problema rapidamente.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Selecione os dados das colunas que você usa e clique em Kutools > Variação > Faixa de transformação. Veja a imagem:
2. No Faixa de transformação diálogo, verificar Faixa para coluna única opção e clique Oke selecione uma célula para inserir os resultados. Veja a imagem:
3. Clique OK. Agora as colunas foram empilhadas em uma única coluna.
Empilhar várias células em uma coluna
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!