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」をクリックして次のダイアログで1列に必要な行数を指定し、「OK」をクリックして結果を出力するセルを選択します。スクリーンショットをご覧ください：

4. クリックしてください OKすると、長い列が複数の列に分割され、各列に15個のセルが含まれているのが確認できます。

Kutools for Excelを使用して長い列を複数の列に分割する

VBAコードを使いたくない方もいるでしょう。幸いなことに、 Kutools for Excelの「 範囲の変換」機能を使用することで、簡単に長い列を固定された列数に変換できます。

Kutools for Excelをインストール後、以下のように操作してください：

1. 分割したい列データを選択し、次にクリックします Kutools > 範囲 > 範囲の変換スクリーンショットをご覧ください：

2. ポップアップしたダイアログで 単一列を範囲に変換 オプションをチェックし、続いて 固定値 オプションをチェックして、必要な列数をテキストボックスに入力します。スクリーンショットをご覧ください：

3. クリックしてください OK そして、分割データを出力するためのセルを選択します。スクリーンショットをご覧ください：

4. クリックしてください OK これで操作が完了です。これで、長い列データが3つの列に分割されました。

VBAコードよりも簡単ですか？「範囲の変換」機能を使用すると、行を範囲に変換したり、範囲を行や列に変換することができます。