Обмен содержимым ячеек в Excel?

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

Иногда нужно поменять местами две соседние ячейки. Мы можем легко сделать это вручную. Посмотрите на следующий снимок экрана, я хочу поменять ячейки A4 и B4, пожалуйста, сделайте следующее:

1. Выберите ячейку, которую вы хотите поменять. В данном примере выберите ячейку А4.

2. Нажмите клавишу Shift и поместите курсор на правую границу.

3. Затем перетащите курсор к правой границе ячейки В4.

4. Когда на экране появится “工”, отпустите мышь.

5. И содержимое двух ячеек поменяется местами.

С помощью этого метода мы также можем поменять местами две соседние строки или столбцы.

Для конкретного случая смежных прямоугольных диапазонов одинакового размера можно использовать метод, описанный в этом ответе на аналогичный вопрос .

1. Выберите правый или нижний диапазон
2. Нажмите Ctrl+X
3. Выберите соседний диапазон (т. е. прямо над или слева)
4. Нажмите Ctrl+ + (+ обычно находится выше клавиши =, поэтому переводится как Ctrl+Shift+=)

Обратите внимание, что ту же самую процедуру можно использовать для обмена целыми соседними строками или столбцами.

Под простотой я подразумеваю либо сочетание клавиш, либо пункт меню, без необходимости копирования во временные ячейки, либо написание скриптов VBA или что-то в этом роде. Я ищу способ просто выбрать две ячейки и нажать на какой-нибудь пункт меню или нажать какую-нибудь комбинацию клавиш, которая поменяет их содержимое.

Зачем вводить это ограничение? Создание макроса делает это тривиальным. Насколько я знаю, это не может быть сделано никаким другим способом. Вы можете назначить макрос кнопке или горячей клавише.

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

Нет. В Excel невозможно поменять содержимое двух ячеек, не написав для этого свой собственный макрос.

EDIT: Похоже, теперь можно легко поменять содержимое ячеек в более поздних версиях Excel, так что этот ответ, вероятно, уже устарел.

Выберите первый набор ячеек для замены и нажмите ctrl+x:

Выберите ячейки BESIDE те, с которыми вы хотите поменяться, и нажмите ctrl++.

• Выберите нижнюю ячейку, которую вы хотите поменять местами
• Нажмите Ctrl+X и перейдите в ячейку, которую вы хотите поменять местами
• Нажмите Ctrl+Shift+=

Обмен будет выполнен.

Я читал этот пост, но на самом деле мне нужен был макрос, чтобы поменяться полными диапазонами. Кроме того, мне нужно было поменять цвета. Слегка изменил изначально размещенный макрос, это может быть полезно для кого-то.

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

Вы можете вставить до 25 элементов в буфер обмена, так что их можно легко поменять, используя ctr+tab или cmd+tab mac.