Como trocar rapidamente o conteúdo de duas células em Excel?

Como trocar rapidamente o conteúdo de duas células no Excel?

Quando estamos a manusear uma folha de trabalho, podemos ter necessidade de trocar o conteúdo de duas células por vezes. Normalmente a maioria de nós apenas sabe “cortar, colar e copiar” para trocar o conteúdo, mas isso consome muito tempo. Vamos falar sobre como trocar rapidamente o conteúdo em células no Excel.

p>P>Passar manualmente dois conteúdos de células adjacentes
Passar dois conteúdos de células não adjacentes com código VBA
Passar facilmente dois conteúdos de células aleatórias com apenas vários cliques

Passar manualmente dois conteúdos de células adjacentes

Por vezes, há duas células adjacentes que precisam de ser trocadas. Podemos fazê-lo manualmente com facilidade. Veja a imagem seguinte, quero trocar as células A4 e B4, por favor faça o seguinte:

1. Seleccione a célula que deseja trocar. Neste exemplo, seleccione a célula A4.

2. Prima a tecla Shift, e coloque o cursor na margem direita.

3. Depois arraste o cursor para a margem direita da célula B4.

4. Quando aparecer “工”, solte o rato.

5. E o conteúdo das duas células foi trocado. Ver imagem de ecrã:

Com este método, podemos também trocar duas linhas ou colunas adjacentes.

Trocar dois conteúdos de células não adjacentes com código VBA

Quando as duas células são não adjacentes, o método acima não funcionará. Podemos trocá-las com código VBA.

1. Prima a tecla Ctrl e seleccione as duas células não-adjacentes que pretende trocar.

2. Clique Developer>Visual Basic, será exibida uma nova janela Microsoft Visual Basic para aplicações, clique Insert>Module, e introduza o seguinte código no Módulo:

Sub SwapTwoRange()'Updateby20131120Dim Rng1 As Range, Rng2 As RangeDim arr1 As Variant, arr2 As VariantxTitleId = "KutoolsforExcel"Set Rng1 = Application.SelectionSet Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)Application.ScreenUpdating = Falsearr1 = Rng1.Valuearr2 = Rng2.ValueRng1.Value = arr2Rng2.Value = arr1Application.ScreenUpdating = TrueEnd Sub

3. Depois clique em botão para executar o código, depois é exibido um diálogo para seleccionar as duas células entre as quais deseja trocar. Ver capturas de ecrã:

4. Clique em Ok no diálogo popped-up, as duas células seleccionadas são trocadas. Ver capturas de ecrã:

Notas: Este código VBA não pode trocar a formatação das duas células.

Trocar facilmente dois conteúdos de células aleatórias com apenas vários cliques

Com Kutools for Excel’s Swap Ranges utility, não só podemos trocar duas células, linhas ou colunas adjacentes, como também podemos trocar facilmente duas células, linhas ou colunas não adjacentes.

Antes de aplicar Kutools para Excel, por favor descarregue e instale-o primeiro.

1. Clique Kutools > Range > Swap Ranges, ver screenshot:

2. Na caixa de diálogo Swap Ranges, é necessário:

• (1) clicar no primeiro botão na caixa Swap Range 1 para seleccionar as células que gosta de trocar.
• (2) clique no segundo botão da caixa Swap Range 2 para seleccionar as células com as quais irá trocar.
  Tips: Pode seleccionar as duas gamas antes de aplicar a funcionalidade, depois pode ver as duas gamas seleccionadas são exibidas nas caixas Swap Range 1 e Swap Range 2 separadamente.
• (3) Clique no botão OK.

Então duas células ou gamas seleccionadas são trocadas imediatamente. Ver capturas de ecrã:

Se quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para descarregá-lo, e depois vá para aplicar a operação de acordo com os passos acima.

Demo: Troque dois conteúdos de células aleatórias com Kutools por Excel

Artigo relacionado:

• Como trocar linhas ou colunas no Excel?