есть ли простой способ поменять содержимое двух ячеек в Microsoft Excel?
под easy я имею в виду либо сочетание клавиш, либо пункт меню, без копирования во временные ячейки или написания сценариев VBA или что-то в этом роде. Другими словами, Я ищу способ просто выбрать две ячейки и щелкнуть какой-либо пункт меню или нажать какую-либо комбинацию клавиш, которая будет менять их содержимое. Конечно, должен быть способ сделать это?
3383
от: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html
иногда нужно поменять местами две соседние ячейки. Мы можем вручную сделать это легко. Посмотрите на следующий скриншот, я хочу поменять местами ячейки A4 и B4, пожалуйста сделайте так:
выберите ячейку, которую вы хотите поменять. В данном примере выберите ячейку A4.
пресс Shift ключ, и положил курсор на правую границу.
затем перетащите курсор на правую границу ячейки B4.
когда появится "工", отпустите кнопку мыши.
и содержимое двух ячеек поменялось местами.
с помощью этого метода, мы также можем поменять два смежные строки или столбцы.
под easy я имею в виду либо сочетание клавиш, либо пункт меню, без копирования во временные ячейки или написание VBA скриптов или что-то в этом роде. Я ищу способ просто выбрать две ячейки и щелкнуть какой-либо пункт меню или нажать комбинацию клавиш, которая будет менять их содержимое.
зачем вводить это ограничение? Создание макроса делает это тривиальным. Насколько я знаю, по-другому и быть не может. Макрос можно назначить кнопке или клавиша.
Komp
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
для конкретного случая соседних ячеек, вы можете использовать метод, описанный в это ответ на подобный вопрос.
+ обычно выше = ключ, так что это переводится как Ctrl+Shift+=)Примечание Вы можете использовать ту же процедуру, чтобы поменять местами все соседние строки или столбцы.
нет. Невозможно поменять местами содержимое двух ячеек в Excel, не написав для этого собственный макрос.
EDIT: похоже, что теперь может быть простой способ поменять содержимое ячейки в более поздних версиях Excel, поэтому этот ответ, вероятно, устарел.
выберите первый набор ячеек для замены и нажмите ctrl+x:
выберите ячейки рядом с теми, которые вы хотите поменять местами и нажмите ctrl++.
вы можете вставить до 25 элементов в буфер обмена, так что они легко поменять местами с помощью ctr + tab или cmd + tab mac
Я читал этот пост, но на самом деле нуждался в макросе для обмена полными диапазонами. Кроме того, мне нужно было поменять цвета. Немного модифицировал первоначально размещенный макрос, это может быть полезно для кого-то.
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
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
