Como copiar e colar linhas ou colunas em ordem inversa no Excel?

Às vezes, pode ser necessário copiar e colar uma lista de coluna ou linha em ordem inversa, vertical ou horizontalmente, como mostrado na captura de tela abaixo. Como você poderia lidar com essa tarefa rapidamente e facilmente no Excel?

Copiar e colar uma lista de coluna ou linha em ordem inversa com fórmula

Copiar e colar um intervalo de colunas ou linhas em ordem inversa com código VBA

Copiar e colar um intervalo de colunas ou linhas em ordem inversa com um recurso incrível

Copiar e colar uma lista de coluna ou linha em ordem inversa com fórmula

Copiar e colar uma lista de coluna em ordem inversa verticalmente

Se você deseja inverter uma lista de células de coluna, pode aplicar a seguinte fórmula:

Insira ou copie a seguinte fórmula em uma célula em branco onde você deseja inverter a ordem da coluna:

Observação: Na fórmula acima, A1 é a primeira célula na coluna, e A15 é a última célula na coluna.

Em seguida, arraste a alça de preenchimento para baixo até as células para extrair os valores das células em ordem inversa, como mostrado na captura de tela abaixo:

Copiar e colar uma lista de linha em ordem inversa horizontalmente

Para copiar e colar uma lista de linha em ordem inversa, use a seguinte fórmula:

Insira ou copie esta fórmula em uma célula em branco:

Observação: Na fórmula acima, A1 é a primeira célula na linha, e 1:1 é o número da linha onde seus dados estão localizados. Se seus dados estiverem na linha 10, você deve alterá-lo para 10:10.

E então, arraste a alça de preenchimento para a direita até as células que você deseja aplicar esta fórmula até que todos os valores sejam extraídos, e você obterá todos os valores invertidos horizontalmente, veja a captura de tela:

Copiar e colar um intervalo de colunas ou linhas em ordem inversa com código VBA

Se você precisa copiar e colar um intervalo de colunas ou linhas em ordem inversa, aqui eu vou introduzir alguns códigos VBA para resolver isso rapidamente e facilmente. Por favor, siga os passos a seguir:

Copiar e colar uma lista de coluna em ordem inversa verticalmente

1. Primeiro, você deve copiar e colar seus dados em um novo local, e depois, pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

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

Código VBA: Copiar e colar um intervalo de células em ordem inversa verticalmente

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de selecionar o intervalo de dados que deseja inverter verticalmente, veja a captura de tela:

4. E então, clique no botão OK, e o intervalo de dados foi invertido verticalmente conforme mostrado nas capturas de tela abaixo:

Copiar e colar um intervalo de células em ordem inversa horizontalmente

Para inverter o intervalo de dados em ordem horizontal, aplique o seguinte código VBA:

Código VBA: Copiar e colar um intervalo de células em ordem inversa horizontalmente

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Depois de executar este código, você obterá as seguintes capturas de tela conforme necessário:

Copiar e colar um intervalo de colunas ou linhas em ordem inversa com um recurso incrível

Se você não está familiarizado com as fórmulas e códigos VBA acima, aqui eu vou recomendar uma ferramenta fácil - Kutools para Excel, com seus recursos Inverter Intervalo Verticalmente e Inverter Intervalo Horizontalmente, você pode inverter o intervalo de células vertical e horizontalmente com apenas um clique.

Depois de instalar o Kutools para Excel, por favor, faça o seguinte:

Copiar e colar um intervalo de células em ordem inversa horizontalmente

1. Selecione o intervalo de células, e depois clique em Kutools > Intervalo > Inverter Intervalo Verticalmente > Todos (Somente inverter valores), veja a captura de tela:

2. E então, os valores das células no intervalo foram invertidos verticalmente imediatamente, veja as capturas de tela:

Copiar e colar um intervalo de células em ordem inversa horizontalmente

1. Selecione o intervalo de células, e depois clique em Kutools > Intervalo > Inverter Intervalo Horizontalmente > Todos (Somente inverter valores), veja a captura de tela:

2. E então, todos os valores das células na seleção foram invertidos horizontalmente imediatamente, veja as capturas de tela:

Clique para Baixar Kutools para Excel e Experimente Agora Grátis!

Mais artigos relacionados a cópia e colagem:

---

As Melhores Ferramentas de Produtividade para o Office

Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
• Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
• Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
• Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
• Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
• Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
• Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
• Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
• Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar... 

---

Office Tab - traz a interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!

Leia Mais... Teste Gratuito de 30 Dias com Todos os Recursos... Comprar...