Trocar o conteúdo das células em Excel?

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

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 como se segue:

1. Seleccione a célula que pretende 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 borda direita da célula B4.

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

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

& >

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

Para o caso específico de gamas rectangulares adjacentes do mesmo tamanho , pode utilizar o método descrito em esta resposta a uma pergunta semelhante .

1. seleccione o intervalo direito ou inferior
2. Prima Ctrl+X
3. Seleccionar o intervalo adjacente (isto é, directamente acima ou à esquerda)
4. Premir Ctrl+ + (o + está normalmente acima da tecla =, pelo que isto se traduz em Ctrl+Shift+=)

Nota: pode usar o mesmo procedimento para trocar linhas ou colunas adjacentes inteiras.

Por fácil, quero dizer ou um atalho de teclado ou item de menu, sem envolver copiar para células temporárias ou escrever scripts VBA ou qualquer coisa do género. Estou à procura de uma forma de seleccionar apenas duas células e clicar num item de menu ou premir uma combinação de teclas que irá trocar o seu conteúdo.

Porquê impor esta restrição? A criação de uma macro torna isto trivial. Tanto quanto sei, não pode ser feito de outra forma. Pode atribuir a macro a um botão ou a uma 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á forma de trocar o conteúdo de duas células em Excel, sem escrever a sua própria macro para o fazer.

EDIT: Parece que agora pode haver uma maneira fácil de trocar o conteúdo das células em versões mais recentes do Excel, por isso esta resposta está provavelmente agora desactualizada.

Seleccione o primeiro conjunto de células a serem trocadas e carregue em ctrl+x:

Seleccione as células BESIDE com as que pretende trocar e carregue em ctrl++.

• Seleccione a célula inferior que pretende trocar
• Prima Ctrl+X e vá para a célula que pretende trocar com
• Prima Ctrl+Shift+=

A troca será executada

Li este post mas na realidade precisava de uma macro para trocar gamas completas. Além disso, eu precisava de trocar as cores. Modificando ligeiramente a macro originalmente publicada, isto 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

Pode colar até 25 itens na prancheta, para que sejam fáceis de trocar usando ctr+tab ou cmd+tab mac