Як розділити стовпець на кожен другий рядок у Excel?
Наприклад, у мене довгий список даних, і тепер я хочу розділити стовпець на два списки однаково для кожного іншого рядка, як показано на наступному знімку екрана. Чи є якісь хороші способи вирішити це завдання в Excel?
Розділіть стовпець на кожен другий рядок за допомогою формул
Розділіть стовпець на кожен другий рядок з кодом VBA
Розділіть стовпець через кожен другий рядок за допомогою Kutools для Excel
Розділіть стовпець на кожен другий рядок за допомогою формул
Наступні формули можуть допомогти вам швидко розділити стовпець на два стовпці за кожним другим рядком, будь-ласка, зробіть наступне:
1. Введіть цю формулу в порожню комірку, С2, наприклад, =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. Клацання 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 клавішу для запуску цього коду, і з'явиться підказка з нагадуванням про вибір діапазону даних, який потрібно розділити, див. знімок екрана:
4, І натисніть OK, вискакує ще одне підказне поле, яке дозволяє вибрати клітинку для отримання результату, див. знімок екрана:
5. Потім натисніть OK, а стовпець розділений на два стовпці кожним другим рядком. Дивіться знімок екрана:
Розділіть стовпець через кожен другий рядок за допомогою Kutools для Excel
Якщо ви хочете дізнатись більше нового, я можу порадити потужний інструмент -Kutools для Excel, З його Діапазон трансформації Утиліта, ви можете швидко перетворити один рядок або стовпець у діапазон комірок і навпаки.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, зробіть наступне :( Безкоштовно завантажте Kutools для Excel зараз )
1. Виберіть дані стовпців, які потрібно розділити на два стовпці за кожним другим рядком.
2. Потім натисніть Кутулс > Діапазон > Діапазон трансформації, див. скріншот:
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% та зменшує сотні клацань миші для вас щодня!