Note: The other languages of the website are Google-translated. Back to English

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

Às vezes, você pode precisar copiar e colar uma lista de colunas ou linhas na ordem reversa vertical ou horizontalmente, como mostrado abaixo na captura de tela. Como você poderia lidar com esse trabalho de forma rápida e fácil no Excel?

Copie e cole uma lista de colunas ou linhas na ordem inversa com a fórmula

Copie e cole um intervalo de colunas ou linhas em ordem reversa com o código VBA

Copie e cole um intervalo de colunas ou linhas em ordem reversa com um recurso incrível


Copie e cole uma lista de colunas ou linhas na ordem inversa com a fórmula

Copie e cole uma lista de colunas em ordem reversa verticalmente

Se quiser inverter uma lista de células da coluna, você pode aplicar a fórmula abaixo:

Insira ou copie a seguinte fórmula em uma célula em branco onde deseja inverter a ordem das colunas:

=OFFSET($A$15,-(ROW(A1)-1),0)

Nota: Na fórmula acima, A1 é a primeira célula da coluna, e A15 é a última célula da coluna.

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


Copie e cole uma lista de linhas em ordem inversa horizontalmente

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

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

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

Nota: Na fórmula acima, A1 é a primeira célula da linha, e 1:1 é o número da linha que seus dados localizaram. Se seus dados estiverem na linha 10, você deve alterá-los para 10:10.

Em seguida, arraste a alça de preenchimento diretamente para as células às quais deseja aplicar esta fórmula até que todos os valores sejam extraídos e você verá que todos os valores foram invertidos horizontalmente, consulte a captura de tela:


Copie e cole um intervalo de colunas ou linhas em ordem reversa com o código VBA

Se você precisar copiar e colar um intervalo de colunas ou linhas na ordem inversa, apresentarei aqui alguns códigos VBA para resolvê-lo de forma rápida e fácil. Execute as seguintes etapas:

Copie e cole uma lista de colunas em ordem reversa verticalmente

1. Primeiro, você deve copiar e colar seus dados em um novo local e, em seguida, mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: copie e cole um intervalo de células na 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. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrar a seleção do intervalo de dados que você deseja inverter verticalmente, consulte a captura de tela:

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


Copie e cole um intervalo de células na ordem inversa horizontalmente

Para reverter o intervalo de dados em ordem horizontal, aplique o código VBA abaixo:

Código VBA: copie e cole um intervalo de células em ordem reversa 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:


Copie e cole um intervalo de colunas ou linhas em ordem reversa com um recurso incrível

Se você não está familiarizado com as fórmulas acima e códigos VBA, aqui, vou recomendar uma ferramenta fácil-Kutools for Excel, Com o seu Inverter alcance vertical e Inverter alcance horizontal recursos, você pode inverter o intervalo de células vertical e horizontalmente com apenas um clique.

Dicas:Para aplicar isso Inverter alcance vertical e Inverter alcance horizontal recursos, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

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

Copie e cole um intervalo de células na ordem inversa horizontalmente

1. Selecione o intervalo de células e clique em Kutools > Variação > Inverter alcance vertical > Todos (apenas valores invertidos), veja a captura de tela:

2. E então, o intervalo de valores das células foi invertido verticalmente de uma vez, veja as capturas de tela:


Copie e cole um intervalo de células na ordem inversa horizontalmente

1. Selecione o intervalo de células e clique em Kutools > Variação > Inverter alcance horizontal > Todos (apenas valores invertidos), veja a captura de tela:

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

Clique para baixar Kutools para Excel e avaliação gratuita agora!


Mais artigos relativos a copiar e colar:

  • Copiar e colar células mescladas em células únicas no Excel
  • Normalmente, quando você copia as células mescladas e as cola em outras células, as células mescladas são coladas diretamente. Mas, você deseja colar essas células mescladas em células únicas, conforme a captura de tela a seguir, para que possa lidar com os dados conforme necessário. Neste artigo, falarei sobre como copiar e colar células mescladas em células únicas.
  • Copie uma coluna e cole apenas os registros exclusivos no Excel
  • Para uma coluna com muitas duplicatas, pode ser necessário obter uma cópia desta lista apenas com os valores exclusivos. Como você pode fazer para conseguir isso? Neste artigo, fornecemos dois métodos para colar apenas os registros exclusivos de uma lista de colunas no Excel.
  • Copiar dados da planilha protegida
  • Suponha que você receba um arquivo Excel de outra pessoa que com planilhas são protegidas pelo usuário, agora, você deseja copiar e colar os dados brutos para outra nova pasta de trabalho. Mas os dados na planilha protegida não podem ser selecionados e copiados porque o usuário desmarca as opções Selecionar células bloqueadas e Selecionar células desbloqueadas ao proteger a planilha.
  • Copiar dados para outra planilha com filtro avançado no Excel
  • Normalmente, podemos aplicar rapidamente o recurso Filtro avançado para extrair dados dos dados brutos na mesma planilha. Mas, às vezes, ao tentar copiar o resultado filtrado para outra planilha, você receberá a seguinte mensagem de aviso. Nesse caso, como você lidaria com essa tarefa no Excel?

  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; 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 possuem fórmula / nome...
guia kte 201905
  • 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!
parte inferior da aba do escritório
Comentários (3)
Avaliado 5 fora do 5 · classificações 1
Este comentário foi feito pelo moderador no site
Eu funciono a opção do código VBA. Muito obrigado!!!
Este comentário foi feito pelo moderador no site
OFFSET($A$15,-(ROW(A1)-1),0) e OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),) não funcionam quando os dados não estão localizados no primeira linha ou coluna.
essas funções parecem funcionar melhor:

Linha de espelhos:
suponha que os dados estejam localizados em G11:K11
OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:G11),) ........ OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:K11),)

Coluna espelho:
suponha que os dados estejam localizados em E22:E26
OFFSET($E$22,ROW($E$26)-ROW(E22),0) ........ OFFSET($E$22,ROW($E$26)-ROW(E26),0)
Avaliado 5 fora do 5
Este comentário foi feito pelo moderador no site
Olá Nasrin,

Como você está. Eu tentei suas fórmulas e elas funcionam perfeitamente. Obrigado por sua parte. Aceitaremos o seu conselho. Tenha um ótimo dia.

Atenciosamente,
Mandy
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL