Excelでデータを分割

質問

例えば、ある列に1～100行目のセルまでデータがあるとして、それを4列に
分割することはできますか？　ただし、普通に４分割ではなくて、

　最初の列は、元の列の1、5、9、・・・行目のセル
　２列目は、元の列の2、6、10、・・・行目のセル
　　・・・

としたいのです。つまり、4列ｘ25行のデータにしたいのです。
何かいい方法はありますでしょうか？

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

仮に、A1～A100にデータがあるとして、B～E列に分割するとします。

まず、B1に、

「=OFFSET($A$1,(COLUMN(B1)-2)+4*(ROW(B1)-1),0,1,1)」

と入力し、フィルハンドルでC1、D1、E1にコピーします。
そして、B1～E1を選択して、やはりフィルハンドルで、25行目までコピーします。

なお、分割する始めの列がBでない場合、例えば、H列であった場合は、上記の式の中の、

「COLUMN(B1)-2」

の部分を、

「COLUMN(H1)-8」

に替えます。つまり、A列を1列目とした時の列数に替えます。
また、行が1行目から出ない場合、仮にB6からE30に分割する場合は、上記の式の中の、

「ROW(B1)-1」

の部分を、

「ROW(B6)-6」

に替えます。つまり行番号に替えます。
あと、OFFSET関数の第1引数には、分割前のデータの先頭行のセル名を絶対参照でいれます。

お礼

マクロとかになってしまうのかと思っていましたが、簡単に
できるのですね！　さっそく使わせていただきました。

ありがとうございました。

回答No.3

kokiriko

一度データをCSVで保存して、読み込むマクロを作成したらいかがでしょう。
保存してから読み込んだ方が簡単だとおもいます。
CSVで保存する方法は判りますよね。
読み込む専用のブックを最初に作って、その中のシートに展開すれば可能です。
だいたい次のマクロで良いはずなんですが、列数などを変更してやってみて下さい。

'----------------------------------------
'CSVファイルを読み込むマクロ
'----------------------------------------
Sub ReadCsv()
Dim myTxtFile As String '読み込んだデータが入る場所
Dim myBuf(12) As String　　'()の中は読み込む列の行数
Dim i As Integer 　'iはカウント

Application.ScreenUpdating = False　'既存のシートに書き込む（新しいシートは作らない）

myTxtFile = ActiveWorkbook.path & "\読み込むファイル名.CSV"

Worksheets("読込シート名").Activate　 '先にシートを作成しておく

Open myTxtFile For Input As #1

Do Until EOF(1)　'
Input #1, myBuf(1), myBuf(2), myBuf(3), myBuf(4), _
myBuf(5), myBuf(6), myBuf(7),myBuf(8),_
myBuf(9), myBuf(10),myBuf(11), myBuf(12)

'データをセルに展開する
i = i + 1 '行数のカウントアップ
　　　　'１行目
' Cells(行, 列) 　　列の１はA、２はB
Cells(i, 1) = myBuf(1)
Cells(i, 2) = myBuf(5)
Cells(i, 3) = myBuf(9)

i = i + 1 '行数のカウントアップ

　　　'２行目
Cells(i, 1) = myBuf(2)
Cells(i, 2) = myBuf(6)
Cells(i, 3) = myBuf(10)

i = i + 1 '行数のカウントアップ

　　　　'３行目
Cells(i, 1) = myBuf(3)
Cells(i, 2) = myBuf(7)
Cells(i, 3) = myBuf(11)

i = i + 1 '行数のカウントアップ
　　　　'４行目
Cells(i, 1) = myBuf(4)
Cells(i, 2) = myBuf(8)
Cells(i, 3) = myBuf(12)
Loop

Close #1
End Sub

お礼

ありがとうございました。

回答No.2

imogasi

下記実験（１）で考えて、その後（２）以下を行ってください。
Ａ１からＡ１００まで１－１００までデータをオートフィルで入れます。
（１）まずＡ列をＳｈｅｅｔ１の中でＤＥＦＧ４列に分ける実験
Ｄ１には=INDEX($A$1:$A$100,4*(ROW(C1)-1)+1,1)
と入れます。
そしてＤ２５まで複写します。
Ｅ１には=INDEX($A$1:$A$100,4*(ROW(D1)-1)+2,1)
と入れます。そしてＥ２５まで複写します。
Ｆ１には=INDEX($A$1:$A$100,4*(ROW(D1)-1)+3,1)
と入れます。そしてＦ２５まで複写します。
Ｇ１には=INDEX($A$1:$A$100,4*(ROW(D1)-1)+4,1)
と入れます。そしてＧ２５まで複写します。
これでＡ列がＤＥＦＧ列に折り畳まれました。
（２）（１）では同一シート内に分けたのですが、Ｓｈｅｅｔ２、Ｓｈｅｅｔ３、Ｓｈｅｅｔ４、Ｓｈｅｅｔ５に分けるには、各シートのＡ１に（Ｓｈｅｅｔ１のデータがＡ－Ｃ列あるとして）
=INDEX(Sheet1!$A$1:$C$100,4*(ROW(D1)-1)+1,1)
と入れて、下へ複写してください。（+1のところを＋１から+４まで各シートによって、変えてください。）
のようにＳｈｅｅｔ１！を添えてください。
（３）（１）（２）はＡ列だけでしたが、Ｂ，Ｃ列もＳｈｅｅｔ２－Ｓｈｅｅｔ５に移すために、各シートの
のＢ１に，Ｓｈｅｅｔ２の場合
=INDEX($A$1:$C$100,4*(ROW(D1)-1)+1,2)
のように入れます。最後の,2はＢ列ですから、ここをＣ、・・に（３、・・に）変化させてください。
以上でＳｈｅｅｔ１のＡ－Ｃ列が行によってＳｈｅｅｔ２－ｓｈｅｅｔ５に分かれます。

お礼

ありがとうございました。