エクセルについて

エクセルについて、
縦に並んだデータをｎ個ずつ横に並べる関数、もしくは方法はありませんか？
大量なデータを扱うので、コピー＆ペースト以外のやり方でお願いします。

例）n=3のとき
1
2
3
4
5
6
7
8
9
10
↓
1 4 7 10
2 5 8
3 6 9

No.1 ベストアンサー 回答者： kagakusuki 回答日時： 2011/04/24 03:58

　今仮に、データーがSheet1のA2～A11の範囲に存在していて、n=3で、Sheet2のA2～D4の範囲に並べ替えた結果を表示させるものとします。

　まず、Sheet2のA2セルに次の関数を入力して下さい。

=IF(or(ROWS($2:2)>3,(COLUMNS($A:A)-1)*3+ROWS($2:2)>COUNT(Sheet1!$A:$A)),"",INDEX(Sheet1!$A$2:$A$11,(COLUMNS($A:A)-1)*3+ROWS(A$2:A2)))

　次に、Sheet2のA2セルをコピーして、Sheet2のA3～A4の範囲に貼り付けて下さい。
　次に、Sheet2のA2～A4の範囲をコピーして、同じ行のB列から右方に貼り付けて下さい。

　以上です。

　尚、Sheet1!$A$2:$A$11の部分に関してですが、データーが存在している最終行の指定は、実際の最終行よりも下の行を指定しても構いません。
　例えば、Sheet1!のA2～A11の範囲にデーターが存在している場合でも、Sheet1!$A$2:$A$999等と指定しても構いません。($A$2の方は必ず最初のデーターが存在しているセルに合わせて下さい)

この回答へのお礼

ありがとうございました。
大変参考になりました。

お礼日時：2011/04/24 16:19

No.2 回答者： KURUMITO 回答日時： 2011/04/24 06:51

お示しのデータがシート1のA1セルから下方に入力されているとします。

並べ替えた表をシート2に表示させるとしてA1セルにはnの値を例えば3などと入力します。
A2セルには次の式を入力して下方にオートフィルドラッグしたのちに右横方向にもオートフィルドラッグします。

=IF(OR(ROW(A1)>$A$1,INDEX(Sheet1!$A:$A,MOD(ROW(A1)-1,$A$1)+1+(COLUMN(A1)-1)*$A$1)=0),"",INDEX(Sheet1!$A:$A,MOD(ROW(A1)-1,$A$1)+1+(COLUMN(A1)-1)*$A$1))

No.3 回答者： mike_g 回答日時： 2011/04/24 07:37

添付図参照

C1: =OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*3,)

No.4 回答者： imogasi 回答日時： 2011/04/24 11:17

昨日は逆の質問が出ていた。

これは計算問題なのだ
エクセルの式はセルの値を求めたいセルに計算式を入れるのだ。
（ＶＢＡであれば自由なので、こんなのは苦労しないが。）
そして式を入れるセルの行と列はROW(),COLUMN()関数で得られることを知っておく必要がアル。
其れで１，２例で計算式を考えて、式を一般化すればいいのだ。
たとえば２行２列であれば１列目で３個は使い果たし２列１行目が４番目、２行目はその次（＋１）の５だ。
一般にｎ行、ｍ列では、(m-1)*3は左列で使ってしまっているから、そのｎ個あとがこのセルに来るべきだ。
それをＩＮＤＥＸ関数で元の１列データから持ってくる
例データ
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
今回は同一シートでやって見る。またＤ１セルから右列に出してみる。
また縦行数は、４行でやってみる。
Ｄ１に
=INDEX($A$1:$A$100,(COLUMN()-3-1)*4+ROW())
これを第４行目目まで（Ｄ１：Ｄ４）にしきを複写。
そしてD１：Ｄ４を右方向に式複写。
式の-3はＤ列から始めているから入れる必要があるもの。
結果
1591317
2610140
3711150
4812160
０を出さないようにするには
（COLUMN（）－３）*4+ROW()が、データ数（データが数値の場合は）COUNT(A1:A100)より大なら空白というＩＦ関数をかぶせる。

No.5 回答者： tom04 回答日時： 2011/04/24 11:53

こんにちは！

すでに回答は出ていますので、参考程度で・・・
VBAでやってみました。Sheet1のデータをSheet2に表示するようにしています。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

尚、Sheet2は使用していないという前提です。
Sheet1のデータは1行目からあるとしています。

Sub test() 'この行から
Dim i, j As Long
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1") '←Sheet名は実際のSheet名に！
Set ws2 = Worksheets("sheet2")
j = InputBox("行数を入力してください。")
ws2.Cells.Clear
For i = 1 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
If ws2.Cells(i, 1).Row Mod j = 0 Then
ws2.Cells(i, 1) = j
Else
ws2.Cells(i, 1) = ws2.Cells(i, 1).Row Mod j
End If
ws2.Cells(i, 2) = WorksheetFunction.RoundDown(ws2.Cells(i + j - 1, 2).Row / j, 0)
Next i
For i = 1 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
ws2.Cells(ws2.Cells(i, 1), ws2.Cells(i, 2) + 2) = ws1.Cells(i, 1)
Next i
ws2.Columns("A:B").Delete (xlToLeft)
End Sub 'この行まで

こんな感じではどうでしょうか？m(__)m