KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como transpor ou converter colunas e linhas numa única coluna?

AutorXiaoyang Data de Modificação

Ao trabalhar numa folha de cálculo do Excel, poderá deparar-se com o seguinte desafio: como converter ou transpor um intervalo de dados numa única coluna? (Veja as capturas de ecrã abaixo.) Apresentamos-lhe agora três truques rápidos para resolver este problema.

dados originaisseta para a direitaconverter intervalo numa única coluna

Transpor/Converter colunas e linhas numa única coluna com fórmula

Transpor/Converter colunas e linhas numa única coluna com Kutools para Excel boa ideia3

Transpor/Converter colunas e linhas numa única coluna com código VBA


Transpor/Converter colunas e linhas numa única coluna com fórmula

A seguinte fórmula longa permite-lhe transpor rapidamente um intervalo de dados numa coluna. Siga estes passos:

1. Em primeiro lugar, defina um nome de célula para o seu intervalo de dados. Selecione os dados que pretende converter, clique com o botão direito do rato e escolha Definir Nome no menu de contexto. Na caixa de diálogo Novo Nome, introduza o nome de célula pretendido. Em seguida, clique em OK. Veja a captura de ecrã:

definir um nome de intervalo para o intervalo de dados

2. Após especificar o nome da célula, clique numa célula vazia — neste exemplo, na célula E1 — e introduza a seguinte fórmula:=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1).

Nota: MyData é o nome da célula em «Selecionar Dados»; pode alterá-lo conforme necessário.

3. Em seguida, arraste a fórmula para baixo até surgir uma mensagem de erro. Todos os dados do intervalo foram transpostos numa única coluna. Veja a captura de ecrã:

 introduzir uma fórmula para obter o resultado


Transpor/Converter colunas e linhas numa única coluna com Kutools para Excel

Talvez a fórmula seja demasiado longa para memorizar e o código VBA tenha algumas limitações para si. Nessa situação, não se preocupe: apresento-lhe agora uma ferramenta mais fácil e multifuncional — Kutools para Excel, com a sua funcionalidade Transform Range, que lhe permite resolver este problema de forma rápida e conveniente.

Kutools para Exceloferece mais de 300 funcionalidades avançadas para simplificar tarefas complexas, potenciando a criatividade e a eficiência.Integrado com capacidades de IA, o Kutools automatiza tarefas com precisão, tornando a gestão de dados descomplicada.Informações detalhadas de Kutools para Excel...         Teste gratuito...

Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:

1. Selecione o intervalo que deseja transpor.

2. Clique em Kutools > Transform Range. Veja a captura de ecrã:

clicar na funcionalidade Transformar Intervalo do Kutools

3. Na caixa de diálogo Transform Range, selecione a opção Range to single column. Veja a captura de ecrã:

selecionar a opção Intervalo para coluna única

4. Em seguida, clique em OK e especifique uma célula para colocar o resultado na caixa que surge.

especificar uma célula para colocar o resultado

5. Clique em OK e os dados das múltiplas colunas e linhas serão transpostos para uma única coluna.
os dados do intervalo foram transpostos para uma única coluna

Se pretender converter uma coluna num intervalo com valor fixo, pode também utilizar a função Transform Range para o fazer rapidamente.
converter uma coluna num intervalo com o Kutools


Transpor/Converter colunas e linhas numa única coluna com código VBA

Com o seguinte código VBA, pode também combinar múltiplas colunas e linhas numa única coluna.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.

Sub ConvertRangeToColumn()
'Updateby20131126
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. Prima a tecla F5 para executar o código e será apresentada uma caixa de diálogo para selecionar o intervalo a converter. Veja a captura de ecrã:

código VBA para selecionar o intervalo de dados

4. Em seguida, clique em Ok e surge outra caixa de diálogo para selecionar uma única célula onde colocar o resultado. Veja a captura de ecrã:

código VBA para selecionar uma célula para colocar o resultado

5. Clique em Ok e os conteúdos das células do intervalo serão convertidos numa lista de uma única coluna. Veja a captura de ecrã:

código VBA para obter o resultado


Artigos relacionados:

Como transformar uma linha em coluna no Excel?

Como transpor ou converter uma única coluna em várias colunas no Excel?

Como transpor ou converter colunas e linhas numa única linha?

As Melhores Ferramentas de Produtividade para o Office

🤖KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas
Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais
Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...


Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Todos os suplementos Kutools — num único instalador.

Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.

ExcelWordOutlookTabsPowerPoint
  • Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Um instalador, uma licença— configuração em minutos (pronto para MSI)
  • Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
  • Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
  • Melhor relação qualidade-preço— poupe face à compra individual dos suplementos