Как бързо да размените съдържанието на две клетки в Excel?
Когато работим с работен лист, понякога може да се наложи да разменим съдържанието на две клетки. Обикновено повечето от нас просто знаят „да изрязват, поставят и копират“ за размяна на съдържанието, но това отнема много време. Ще говорим за това как бързо да разменяте съдържанието в клетките в Excel.
Разменете ръчно съдържанието на две съседни клетки
Разменете съдържанието на две несъседни клетки с VBA код
Лесно разменете съдържанието на две произволни клетки само с няколко кликвания
Разменете ръчно съдържанието на две съседни клетки
Понякога има две съседни клетки, които трябва да бъдат разменени. Можем лесно да го направим ръчно. Вижте следната екранна снимка, искам да разменя клетки A4 и B4, моля, направете следното:
1. Изберете клетката, която искате да размените. В този пример изберете клетка A4.
2, Натиснете Превключване и поставете курсора в дясната граница.
3. След това плъзнете курсора до дясната граница на клетка B4.
4. Когато се покаже „工”, отпуснете мишката.
5. И съдържанието на двете клетки е разменено. Вижте екранна снимка:
С този метод можем също да разменим два съседни реда или колони.
Бързо разменете съдържанието на две клетки или диапазони в Excel:
Kutools за Excel's Размяна на диапазони помощната програма ви помага лесно да разменяте две посочени клетки или диапазони наведнъж в Excel, както е показано в демонстрацията по-долу.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Разменете съдържанието на две несъседни клетки с VBA код
Когато двете клетки не са съседни, горният метод няма да работи. Можем да ги разменим с VBA код.
1, Натисни Ctrl и изберете двете несъседни клетки, които искате да размените.
2. Щракнете Софтуерен Инженер>Visual Basic, Нов Microsoft Visual Basic за приложения ще се покаже прозорец, щракнете Поставете>Модулии въведете следния код в Модули:
Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub3, След това кликнете 
за да изпълните кода, след което се показва диалогов прозорец, за да изберете двете клетки, между които искате да сменяте. Вижте екранни снимки:
4. кликване Ok в изскачащия диалог двете избрани клетки се разменят. Вижте екранни снимки:
Забележки: Този VBA код не може да размени форматирането на двете клетки.
Лесно разменете съдържанието на две произволни клетки само с няколко кликвания
с Kutools за Excel's Размяна на диапазони помощна програма, ние не само можем да разменяме две съседни клетки, редове или колони, но също така можем лесно да превключваме две несъседни клетки, редове или колони.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. кликване Kutools > Обхват > Размяна на диапазони, вижте екранна снимка:
2. В Размяна на диапазони диалогов прозорец, трябва да:
- (1) щракнете върху първия
бутон в Обхват на размяна 1 за да изберете клетките, които искате да размените. - (2) щракнете върху второто бутон от Обхват на размяна 2 за да изберете клетките, с които ще размените.
Съвети: Можете да изберете двата диапазона, преди да приложите функцията, след което можете да видите избраните два диапазона да се показват в полетата Swap Range 1 и Swap Range 2 поотделно. - (3) Щракнете върху OK бутон.
След това две избрани клетки или диапазони се разменят веднага. Вижте екранни снимки:
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Демонстрация: Разменете съдържанието на две произволни клетки с Kutools за Excel
Свързана статия:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
