Ir para o conteúdo principal

Como inverter / inverter uma linha de ordem de dados no Excel rapidamente?

Quando você precisa reverter ou inverter a ordem dos dados de uma linha, como pode fazer isso rapidamente? Normalmente, pode ser necessário usar um código VBA ou outros suplementos do Excel para fazer isso, porque o Excel não oferece suporte para essa operação. E aí vem o seguinte procedimento complicado que o ajudará a inverter ou inverter rapidamente a ordem de uma linha de dados no Excel.

Inverta / inverta a ordem dos dados horizontalmente em linhas com VBA

Inverta / inverta a ordem dos dados horizontalmente em linhas com o Kutools para Excel



seta azul bolha direita Inverta / inverta a ordem dos dados horizontalmente em linhas com VBA

Aqui está uma macro VBA bacana que pode ajudá-lo a inverter / inverter rapidamente a ordem dos dados nas linhas horizontalmente.

Passo 1: Mantenha pressionada a tecla outro + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

Passo 2: Clique inserção > Móduloe cole a macro a seguir no Módulojanela.

Sub FlipRows()
'Updateby20131126
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

Passo 3: Aperte o F5 para executar esta macro, e uma caixa de diálogo é exibida para você selecionar um intervalo para trabalhar, consulte a captura de tela:

doc-ordem reversa8

- Press OK, você pode ver o resultado conforme mostrado abaixo:


seta azul bolha direita Inverta / inverta a ordem dos dados horizontalmente nas linhas com o Kutools para Excel

Com o Kutools for Excel'S Inverter alcance horizontal ferramenta, você pode inverter a ordem dos dados horizontalmente em linhas selecionadas rapidamente.

Kutools for Excel inclui mais de 300 ferramentas úteis de Excel. Gratuito para testar sem limitação em 30 dias. Get it Now.

Passo 1: Selecione a linha na qual você inverterá os dados.

Passo 2: Clique no Kutools > Conversor de alcance > Inverter alcance horizontal, veja a captura de tela:

doc-ordem-de-linha reversa3

Então você verá que toda a ordem dos dados está invertida nas linhas selecionadas.

doc-ordem-de-linha reversa4
-1
doc-ordem-de-linha reversa5

Clique Inverter alcance horizontal para saber mais sobre este recurso.


Artigo relacionado:

Como inverter / inverter uma coluna de ordem de dados verticalmente no Excel?

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations