ExcelでXNUMX行おきに列を分割するにはどうすればよいですか？

たとえば、データの長いリストがありますが、次のスクリーンショットに示すように、列をXNUMX行おきに均等にXNUMXつのリストに分割したいと思います。 Excelでこのタスクを処理するための良い方法はありますか？

数式を使用してXNUMX行おきに列を分割する

VBAコードでXNUMX行おきに列を分割する

Kutools forExcelを使用してXNUMX行おきに列を分割する

数式を使用してXNUMX行おきに列を分割する

次の数式は、XNUMX行おきにXNUMX列をXNUMX列にすばやく分割するのに役立つ場合があります。次のようにしてください。

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)、エラー値が表示され、列の値がXNUMX行おきにXNUMXつの列に分割されるまで、塗りつぶしハンドルをセルまでドラッグします。スクリーンショットを参照してください。

VBAコードでXNUMX行おきに列を分割する

VBAコードに興味がある場合は、ここで、この問題を解決するためのコードについて説明します。

1。 を押し続けます Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：XNUMX列をXNUMX行おきにXNUMX列に分割します

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、および列はXNUMX行おきにXNUMXつの列に分割されています。 スクリーンショットを参照してください：

Kutools forExcelを使用してXNUMX行おきに列を分割する

もっと新しいことを学びたいのなら、私は強力なツールをお勧めします-Kutools for Excelそのと 変換範囲 ユーティリティを使用すると、単一の行または列をセルの範囲に、またはその逆にすばやく変換できます。

インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用Kutoolsを無料でダウンロード )

1。 XNUMX行おきにXNUMX列に分割する列データを選択します。

2。 次に、をクリックします クツール > レンジ > 変換範囲、スクリーンショットを参照してください：

3。 の中に 変換範囲 ダイアログボックスで 範囲に単一の列 下 変換タイプ、を選択します 固定値 入力してください 2 のボックスに レコードあたりの行数 セクション、スクリーンショットを参照してください：

4。 次に、をクリックします Ok ボタンをクリックすると、結果を出力するセルを選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

5に設定します。 OK をクリックします。 OK、リストデータはXNUMX行おきにXNUMX列に分割されています。

この変換範囲ユーティリティの詳細については、クリックしてください。

今すぐExcel用Kutoolsを無料でダウンロード