Как да преместите всеки друг ред в колона в Excel
Опитвали ли сте някога да преместите всеки друг ред с данни в колона в Excel, като преместване на всеки нечетен ред в една колона и всеки четен ред в друга колона, които са показани на екранната снимка по-долу. Тук намирам някои трикове, които могат да се справят с този проблем.
Преместете всеки следващ ред в колона с формула
Преместете всеки друг ред в колона с VBA
Преместете всеки друг ред в колона с Kutools за Excel
Преместете всеки следващ ред в колона с формула
За повечето потребители на Excel използването на формула за решаване на проблем в Excel е най-лесният начин.
1. Изберете клетка до вашите данни и въведете тази формула =АКО(ISEVEN(РЕД(B2)),B2,"") (B2 показва данните, които искате да получите) в него и натиснете Въведете след това плъзнете автоматичното попълване, за да запълните диапазона, който искате да използвате тази формула. Сега данните за всеки втори ред са получени в тази колона.
2. След това изберете другата клетка до горната колона и въведете тази формула =АКО(ISODD(РЕД(B3)),B3,"") (B3 са данните, които искате да получите) в него и натиснете Въведете след това плъзнете автоматичното попълване, за да запълните диапазона, който искате да използвате тази формула. Сега данните за всеки трети ред са получени в тази колона.
Преместете всеки друг ред в колона с VBA
Следващият VBA също може да премества всеки друг ред в колона.
1. Натиснете F11 + Alt съберете клавишите на клавиатурата, за да отворите Microsoft Visual Basic за приложения прозорец.
2. След това кликнете Поставете > Модули за вмъкване на нов прозорец на модула. След това копирайте следния VBA код в прозореца.
VBA: Преместете всеки друг ред в колона.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. кликване бягане или F5 на клавиатурата и се появява диалогов прозорец, за да изберете диапазон за преместване. Вижте екранна снимка:
4. След това кликнете OK за показване на другия диалогов прозорец за избор на клетка за извеждане на резултата. Вижте екранна снимка:
5. кликване OKи можете да видите резултата, показан по-долу:
Преместете всеки друг ред в колона с Kutools за Excel
Освен формули и VBA, ако имате инсталиран Kutools за Excel, можете да използвате неговия Обхват на трансформация функция за бързо преместване на всеки друг ред в колона.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега
1. Изберете диапазона, който искате да преместите на всеки друг ред, и щракнете Kutools > Преобразувател на обхват > Обхват на трансформация. Вижте екранна снимка:
2. В Обхват на трансформация диалог, проверка Единична колона към диапазон in Тип трансформация раздел и проверете Фиксирана стойност след това изберете или въведете 2 в списъка в Редове на запис раздел. Вижте екранна снимка:
3. кликване Ok за да отворите диалогов прозорец за избор на една клетка, за да изведете резултата, вижте екранната снимка:
4. След това кликнете OK. Можете да видите резултата, както е показано по-долу:
За повече информация относно Transform Range.
Относителни статии:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!