Поміняти вміст комірок в Excel?

Чи є простий спосіб замінити вміст двох комірок в Microsoft Excel?

Я просто маю на увазі або комбінацію клавіш, або пункт меню, не включаючи копіювання у тимчасові комірки або написання сценаріїв VBA або щось подібне. Іншими словами, я шукаю спосіб просто вибрати дві клітинки і натиснути якийсь пункт меню або натиснути якусь комбінацію клавіш, яка буде міняти їх вмістом. Напевно, має бути спосіб це зробити?

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

Іноді дві сусідні клітини потрібно замінити. Ми можемо це зробити вручну легко. Подивіться на наступний знімок екрана, я хочу поміняти клітинки A4 та B4, будь ласка, зробіть наступне:

1. Виберіть клітинку, яку ви хочете змінити. У цьому прикладі виберіть клітинку A4.

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

3. Потім перетягніть курсор до правої межі комірки B4.

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:

Виберіть клітинки ЗА ВІДТРИМИ ті, з якими потрібно обмінятися, і натисніть ctrl+ +.

Ви можете вставити до буфера обміну до 25 елементів, щоб їх легко було поміняти за допомогою ctr + tab або cmd + tab mac

• Виберіть нижню клітинку, яку ви хочете поміняти
• Натисніть 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