Перейти до основного матеріалу

Як розділити стовпець на кожен другий рядок у Excel?

doc розділити кожен другий рядок 1

Наприклад, у мене довгий список даних, і тепер я хочу розділити стовпець на два списки однаково для кожного іншого рядка, як показано на наступному знімку екрана. Чи є якісь хороші способи вирішити це завдання в Excel?

Розділіть стовпець на кожен другий рядок за допомогою формул

Розділіть стовпець на кожен другий рядок з кодом VBA

Розділіть стовпець через кожен другий рядок за допомогою Kutools для Excel


стрілка синя права міхур Розділіть стовпець на кожен другий рядок за допомогою формул

Наступні формули можуть допомогти вам швидко розділити стовпець на два стовпці за кожним другим рядком, будь-ласка, зробіть наступне:

1. Введіть цю формулу в порожню комірку, С2, наприклад, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), див. скріншот:

doc розділити кожен другий рядок 2

2. Потім перетягніть маркер заповнення вниз, доки помилки не відображатимуться в клітинках, див. Знімок екрана:

doc розділити кожен другий рядок 3

3. Потім введіть іншу формулу в клітинку D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), і перетягніть маркер заповнення вниз до комірок, поки не з'являться значення помилок, а значення стовпців будуть розділені на два стовпці в кожному другому рядку, див. знімок екрана:

doc розділити кожен другий рядок 4


стрілка синя права міхур Розділіть стовпець на кожен другий рядок з кодом VBA

Якщо вас цікавить код VBA, тут я можу поговорити про код для вирішення цієї проблеми.

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про вибір діапазону даних, який потрібно розділити, див. знімок екрана:

doc розділити кожен другий рядок 5

4, І натисніть OK, вискакує ще одне підказне поле, яке дозволяє вибрати клітинку для отримання результату, див. знімок екрана:

doc розділити кожен другий рядок 6

5. Потім натисніть OK, а стовпець розділений на два стовпці кожним другим рядком. Дивіться знімок екрана:

doc розділити кожен другий рядок 7


стрілка синя права міхур Розділіть стовпець через кожен другий рядок за допомогою Kutools для Excel

Якщо ви хочете дізнатись більше нового, я можу порадити потужний інструмент -Kutools для Excel, З його Діапазон трансформації Утиліта, ви можете швидко перетворити один рядок або стовпець у діапазон комірок і навпаки.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів

після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз )

1. Виберіть дані стовпців, які потрібно розділити на два стовпці за кожним другим рядком.

2. Потім натисніть Кутулс > Діапазон > Діапазон трансформації, див. скріншот:

3, в Діапазон трансформації діалогове вікно, виберіть Один стовпець для діапазону під Тип перетворення, Потім виберіть Фіксована вартість І введіть 2 у вікно в Рядки на запис розділ, див. знімок екрана:

doc розділити кожен другий рядок 9

4. Потім натисніть Ok , і з'явиться підказка, щоб нагадати вам вибрати клітинку, куди потрібно вивести результат, див. знімок екрана:

doc розділити кожен другий рядок 10

5. Клацання OK, дані списку були розділені на два стовпці кожного другого рядка.

Натисніть, щоб дізнатися більше про цю утиліту Transform Range.

Безкоштовно завантажте Kutools для Excel зараз

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations