Como trocar rapidamente o conteúdo de duas células no Excel?
Quando estamos lidando com uma planilha, às vezes podemos precisar trocar o conteúdo de duas células. Normalmente, a maioria de nós sabe apenas “cortar, colar e copiar” para trocar o conteúdo, mas é demorado. Vamos falar sobre como trocar rapidamente conteúdos em células no Excel.
Troca manualmente dois conteúdos de células adjacentes
Troque dois conteúdos de células não adjacentes com o código VBA
Troque facilmente dois conteúdos de células aleatórias com apenas alguns cliques
Troca manualmente dois conteúdos de células adjacentes
Às vezes, há duas células adjacentes que precisam ser trocadas. Podemos fazer isso manualmente com facilidade. Olhe para a captura de tela a seguir, desejo trocar as células A4 e B4, faça o seguinte:
1. Selecione a célula que você deseja trocar. Neste exemplo, selecione a célula A4.
2. pressione Shift e coloque o cursor na borda direita.
3. Em seguida, arraste o cursor para a borda direita da célula B4.
4. Quando exibe “工”, Solte o mouse.
5. E os dois conteúdos das células foram trocados. Veja a imagem:
Com este método, também podemos trocar duas linhas ou colunas adjacentes.
Troque rapidamente o conteúdo de duas células ou intervalos no Excel:
Kutools for Excel's Intervalos de troca O utilitário ajuda você a trocar facilmente duas células ou intervalos especificados de uma vez no Excel, conforme mostrado na demonstração abaixo.
Baixe e experimente agora! (trilha gratuita de 30 dias)
Troque dois conteúdos de células não adjacentes com o código VBA
Quando as duas células são não adjacentes, o método acima não funcionará. Podemos trocá-los com o código VBA.
1. aperte o Ctrl e selecione as duas células não adjacentes que deseja trocar.
2. Clique Developer>Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção>Móduloe insira o seguinte código no Módulo:
Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub
3. Então clique para executar o código, então uma caixa de diálogo é exibida para você selecionar as duas células que deseja alternar. Veja as capturas de tela:
4. Clique Ok na caixa de diálogo pop-up, as duas células selecionadas são trocadas. Veja as capturas de tela:
Observações: Este código VBA não pode trocar a formatação das duas células.
Troque facilmente dois conteúdos de células aleatórias com apenas alguns cliques
Com o Kutools for Excel's Intervalos de troca utilitário, não apenas podemos trocar duas células, linhas ou colunas adjacentes, mas também podemos trocar duas células, linhas ou colunas não adjacentes facilmente.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Clique Kutools > Variação > Intervalos de troca, veja a captura de tela:
2. No Intervalos de troca caixa de diálogo, você precisa:
- (1) clique no primeiro botão no Faixa de troca 1 para selecionar as células que deseja trocar.
- (2) clique no segundo botão de Faixa de troca 2 para selecionar as células com as quais você fará a troca.
Tips: Você pode selecionar os dois intervalos antes de aplicar o recurso, então você pode ver os dois intervalos selecionados são exibidos nas caixas Trocar Intervalo 1 e Trocar Intervalo 2 separadamente. - (3) Clique no OK botão.
Em seguida, duas células ou intervalos selecionados são trocados imediatamente. Veja as capturas de tela:
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Demonstração: troque o conteúdo de duas células aleatórias com o Kutools para Excel
Artigo relacionado:
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!