Как разделить столбец через строку в Excel?

Например, у меня есть длинный список данных, и теперь я хочу разделить столбец на два списка поровну через каждую строку, как показано на следующем скриншоте. Есть ли хорошие способы справиться с этой задачей в Excel?

Разделение столбца через строку с помощью формул

Разделение столбца через строку с помощью кода VBA

Разделение столбца через строку с помощью Kutools для 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 for Applications.

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 для Excel

Если вы хотите узнать больше нового, я могу порекомендовать мощный инструмент — Kutools для Excel, с его утилитой Преобразовать диапазон вы можете быстро преобразовать одну строку или столбец в диапазон ячеек и наоборот.

После установки Kutools для Excel выполните следующие действия:

1. Выберите данные столбца, которые вы хотите разделить на два столбца через строку.

2. Затем нажмите Kutools > Диапазон > Преобразовать диапазон, см. скриншот:

3. В диалоговом окне Преобразовать диапазон выберите Одна колонка в диапазон под Тип преобразования, затем выберите Фиксированное значение и введите 2 в поле в разделе Строки на запись, см. скриншот:

4. Затем нажмите кнопку Ok, и появится диалоговое окно, которое предложит выбрать ячейку, куда вы хотите вывести результат, см. скриншот:

5. Нажмите OK, данные списка будут разделены на два столбца через строку.

Нажмите, чтобы узнать больше об этой утилите Преобразовать диапазон.