如何在 Excel 中将一个长列拆分为多列？

如果在 Excel 中有一个很长的列数据，查看时会很麻烦。但是，如果现在可以将这样的长列表拆分为 Excel 中的多列，查看起来就会方便得多。
使用 VBA 将长列拆分为多列
使用 Kutools for 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，随后会弹出一个对话框供选择数据列表，然后单击 确定 转到下一个对话框指定每列需要多少行，再单击 确定 并选择一个单元格输出结果。请参见截图：

4. 单击 确定，然后您可以看到长列被拆分为多列，每列包含 15 个单元格。

使用 Kutools for Excel 将长列拆分为多列

也许有些人不喜欢使用 VBA 代码，幸运的是，您可以使用 Kutools for Excel 的 转换区域 功能快速轻松地将长列转换为固定数量的列。

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要拆分的列数据，然后单击 Kutools > 区域 > 转换区域。请参见截图：

2. 在弹出的对话框中，勾选 单列转区域 选项，然后勾选 固定值 选项并在文本框中输入所需的列数。请参见截图：

3. 单击 确定 并选择一个单元格来放置拆分的数据。请参见截图：

4. 单击 确定 完成操作。现在，长列数据已被拆分为三列。

是不是比 VBA 代码更容易？使用 转换区域 功能，您可以将一行转换为区域、将区域转换为一行或将一列转换为多列。