Trocar o conteúdo da célula no Excel?

Existe uma maneira fácil de trocar o conteúdo de duas células no Microsoft Excel?

Por fácil, quero dizer um atalho de teclado ou item de menu, sem envolver a cópia para células temporárias ou a escrita de scripts VBA ou qualquer coisa assim. Em outras palavras, estou procurando uma maneira de selecionar apenas duas células e clicar em algum item do menu ou pressionar alguma combinação de teclas que troque seu conteúdo. Certamente, tem que haver uma maneira de fazer isso?

De: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

À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, quero 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 a tecla Shift e coloque o cursor na borda direita.

3. Em seguida, arraste o cursor para a borda direita da célula B4.

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

5. E o conteúdo das duas células foi trocado.

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

Para o caso específico de intervalos retangulares do mesmo tamanho adjacentes , você pode usar o método descrito nesta resposta para uma pergunta semelhante .

1. Selecione a faixa direita ou inferior
2. Pressione Ctrl+X
3. Selecione o intervalo adjacente (ou seja, diretamente acima ou à esquerda)
4. Pressione Ctrl+ +( +geralmente está acima da =tecla, então isso se traduz em Ctrl+ Shift+ =)

Observe que você pode usar o mesmo procedimento para trocar linhas ou colunas adjacentes inteiras.

Por fácil, quero dizer um atalho de teclado ou item de menu, sem envolver a cópia para células temporárias ou a escrita de scripts VBA ou qualquer coisa assim. Estou procurando uma maneira de selecionar apenas duas células e clicar em algum item do menu ou pressionar alguma combinação de teclas que troque seu conteúdo.

Por que impor essa restrição? Criar uma macro torna isso trivial. Até onde eu sei, isso não pode ser feito de outra maneira. Você pode atribuir a macro a um botão ou tecla de atalho.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

Não. Não há como trocar o conteúdo de duas células no Excel, sem escrever sua própria macro para fazê-lo.

EDIT: Parece que agora pode haver uma maneira fácil de trocar o conteúdo da célula nas versões mais recentes do Excel, portanto essa resposta provavelmente está desatualizada.

Selecione o primeiro conjunto de células a ser trocado e pressione ctrl+ x:

Selecione as células AO lado das que você deseja trocar e pressione ctrl+ +.

Você pode colar até 25 itens na área de transferência para facilitar a troca usando ctr + tab ou cmd + tab mac

• Selecione a célula inferior que você deseja trocar
• Pressione Ctrl+ Xe vá para a célula com a qual deseja trocar
• Pressione Ctrl+ Shift+=

A troca será executada

Eu li este post, mas realmente precisava de uma macro para trocar intervalos completos. Além disso, eu precisava trocar as cores. Modificada a macro originalmente postada levemente, isso pode ser útil para alguém.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub