Как да разделя колона на всеки друг ред в Excel?
Например, имам дълъг списък с данни и сега искам да разделя колоната на два списъка по равно на всеки друг ред, както е показано на следната екранна снимка. Има ли добри начини за справяне с тази задача в Excel?
Разделете колона на всеки втори ред с формули
Разделете колона на всеки втори ред с формули
Следните формули може да ви помогнат бързо да разделите колона на две колони на всеки следващ ред, моля, направете следното:
1. Въведете тази формула в празна клетка, C2, например, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), вижте екранна снимка:
2. След това плъзнете манипулатора за попълване надолу, докато грешките се покажат в клетките, вижте екранната снимка:
3. След това въведете друга формула в клетка D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)и плъзнете манипулатора за попълване надолу към клетките, докато се появят стойности за грешка и стойностите на колоните са разделени на две колони на всеки втори ред, вижте екранната снимка:
Разделете колона на всеки друг ред с VBA код
Ако се интересувате от VBA код, тук мога да говоря за код за решаване на този проблем.
1. Задръжте натиснат ALT + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
Код на VBA: Разделете колона на две колони на всеки друг ред
Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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 OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
If index Mod 2 = 1 Then
OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
num1 = num1 + 1
Else
OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
num2 = num2 + 1
End If
Next
End Sub
3. След това натиснете F5 за да стартирате този код и ще изскочи поле за подкана, за да ви напомни да изберете диапазона от данни, който искате да разделите, вижте екранната снимка:
4, И натиснете OK, друго поле за подкана се появява, за да ви позволи да изберете клетка, за да поставите резултата, вижте екранната снимка:
5, След това кликнете OK, а колоната е разделена на две колони от всеки втори ред. Вижте екранна снимка:
Разделете колона на всеки друг ред с Kutools за Excel
Ако искате да научите повече нови неща, мога да препоръчам мощен инструмент --Kutools за Excel, Със своята Обхват на трансформация помощна програма, можете бързо да конвертирате един ред или колона в диапазон от клетки и обратно.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:( Безплатно изтегляне Kutools за Excel сега )
1. Изберете данните в колоната, които искате да разделите на две колони на всеки втори ред.
2, След това кликнете Kutools > Обхват > Обхват на трансформация, вижте екранна снимка:
3. В Обхват на трансформация изберете диалоговия прозорец Единична колона към диапазон под Тип трансформация, след което изберете Фиксирана стойност и влизай 2 в кутията в Редове на запис раздел, вижте екранна снимка:
4, След това кликнете Ok и ще изскочи поле за подкана, за да ви напомни, че изберете клетка, в която искате да изведете резултата, вижте екранната снимка:
5. Щракнете OK, данните от списъка са разделени на две колони на всеки втори ред.
Кликнете, за да научите повече за тази помощна програма Transform Range.
Безплатно изтегляне Kutools за Excel сега
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
