Как разделить длинный столбец на несколько столбцов в Excel?

Если у вас есть длинный столбец данных в Excel, который будет неудобно просматривать. Однако, если вы сможете разделить такой длинный список на несколько столбцов в Excel, это сделает просмотр более удобным.
Разделение длинного столбца на несколько столбцов с помощью VBA
Разделение длинного столбца на несколько столбцов с помощью Kutools для Excel

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

1. Нажмите клавиши Alt + F11 вместе, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и скопируйте следующий код VBA в появившееся окно.

VBA: Разделение длинного столбца на несколько столбцов.

Sub SplitColumn()
	'Updateby20141106
	Dim rng As Range
	Dim InputRng As Range
	Dim OutRng As Range
	Dim xRow As Integer
	Dim xCol As Integer
	Dim xArr As Variant
	xTitleId     = "KutoolsforExcel"
	Set InputRng = Application.Selection
	Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
	xRow         = Application.InputBox("Rows :", xTitleId)
	Set OutRng   = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
	Set InputRng = InputRng.Columns(1)
	xCol         = InputRng.Cells.Count / xRow
	ReDim xArr(1 To xRow, 1 To xCol + 1)
	For i = 0 To InputRng.Cells.Count - 1
		xValue = InputRng.Cells(i + 1)
		iRow = i Mod xRow
		iCol = VBA.Int(i / xRow)
		xArr(iRow + 1, iCol + 1) = xValue
	Next
	OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub

3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить VBA, и появится диалоговое окно для выбора списка данных, затем нажмите OK, чтобы указать, сколько строк в одном столбце вам нужно в следующем диалоге, затем нажмите OK и выберите ячейку для вывода результата. См. скриншоты:

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

Разделение длинного столбца на несколько столбцов с помощью Kutools для Excel

Может быть, некоторые из вас не любят использовать код VBA, к счастью, вы можете использовать утилиту Преобразовать диапазон Kutools для Excel, чтобы быстро и легко преобразовать длинный столбец в фиксированное количество столбцов.

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

1. Выберите данные столбца, которые хотите разделить, затем нажмите Kutools > Диапазон > Преобразовать диапазон. См. скриншот:

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

3. Нажмите Ok и выберите одну ячейку для вывода разделенных данных. См. скриншот:

4. Нажмите OK для завершения операций. Теперь данные длинного столбца были разделены на три столбца.

Это проще, чем код VBA? С помощью утилиты Преобразовать диапазон вы можете преобразовать строку в диапазон, диапазон в строку или один столбец.