如何在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，並彈出一個對話框，用於選擇數據列表，然後單擊 OK 在下一個對話框中指定一列中需要多少行，然後單擊 OK 並選擇一個單元格以輸出結果。 查看屏幕截圖：

4。 點擊 OK，那麼您可以看到長列被拆分為多列，每列有15個單元格。

使用Kutools for Excel將長列拆分為多列

也許有些人不喜歡使用VBA代碼，幸運的是，您可以使用 變換範圍 的效用 Excel的Kutools 快速輕鬆地將長列轉換為固定數量的列。

安裝後 Kutools for Excel，請執行以下操作：

1.選擇要拆分的列數據，然後單擊 庫工具 > 範圍 > 變換範圍。 看截圖：

2.在彈出的對話框中，選中 單列到範圍 選項，然後檢查 固定值 選項，然後在文本框中輸入所需的列數。 看截圖：

3。 點擊 Ok 並選擇一個單元格以輸出拆分數據。 看截圖：

4。 點擊 OK 完成操作。 現在，長列數據已分為三列。

它比VBA代碼容易嗎？ 帶T變換範圍 實用程序，您可以將行轉換為範圍，將範圍轉換為行或一列。