Как разделить столбец на каждую вторую строку в Excel?
Например, у меня есть длинный список данных, и теперь я хочу разделить столбец на два списка поровну по каждой второй строке, как показано на следующем снимке экрана. Есть ли какие-нибудь хорошие способы справиться с этой задачей в Excel?
Разделите столбец через каждую вторую строку с помощью формул
Разделите столбец через каждую вторую строку с кодом VBA
Разделите столбец через каждую строку с помощью Kutools for 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. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код 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 for Excel
Если вы хотите узнать больше нового, я могу порекомендовать мощный инструмент -Kutools for Excel, С его Диапазон преобразования утилиту, вы можете быстро преобразовать одну строку или столбец в диапазон ячеек и наоборот.
Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )
1. Выберите данные столбца, которые вы хотите разделить на два столбца по каждой второй строке.
2. Затем нажмите Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:
3. В Диапазон преобразования диалоговое окно, выберите Один столбец для диапазона под Тип трансформации, а затем выберите Фиксированная стоимость и введите 2 в коробку в Строк на запись раздел, см. снимок экрана:
4. Затем нажмите Ok Кнопка, и появится окно подсказки, напоминающее вам о выборе ячейки, в которую вы хотите вывести результат, см. снимок экрана:
5. Нажмите OK, данные списка разделены на два столбца в каждой второй строке.
Нажмите, чтобы узнать больше об этой утилите Transform Range.
Бесплатная загрузка Kutools для Excel сейчас
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!