EXELで複数行を１行にまとめたい

質問

EXELで100行ｘ200列にデータが詰まっています。
これをどのような順番でもいいのですが、
１行（20000セル）にまとめることができますか？

よろしくお願いします。

回答No.3

mu2011 · ベストアンサー

>A列に縦に並べたいということです。
⇒一例です。
仮にsheet1!A1:CV100範囲とします。
■A1→B1→C1・・CV1→A2の行方向順に並び替え
　sheet2のB1に=OFFSET(sheet1!$A$1,INT((ROW(A1)-1)/200),MOD(ROW(A1)-1,200))を設定、下方向にコピー
■A1→A100→B1→B100の列方向順に並び替え
　sheet2のB1に=OFFSET(Sheet1!$A$1,MOD(ROW(A1)-1,100),INT((ROW(A1)-1)/100))を設定、下方向にコピー
Ｂ列を選択→コピー→Ａ列選択→形式を選択して貼り付け→値を選択→ＯＫ

お礼

できました！
ありがとうございます。

回答No.5

imogasi

VBAでやれば下記のように簡単。
セル的にデータが長方形的に集っていると仮定して
（質問例では、下記でdは100,rは２００となる）
下記テスト例では３行ｘ４列。
下記では列数＋２の列に結果を出した。
標準モジュールに
Sub test01()
d = Range("A65536").End(xlUp).Row
r = Range("iv1").End(xlToLeft).Column
MsgBox r
k = 1
For i = 1 To d
For j = 1 To r
Cells(k, r + 2) = Cells(i, j)
k = k + 1
Next j
Next i
End Sub
１００＝＞３、２００－＞４の例で
A　　B　　　C　　D　　E　　F（結果）
1 2 3 x
4 5 6 y
7 8 9 z
1
2
3
x
4
5
6
y
7
8
9
z

---
関数では持ってくるセルにどのセルから持ってくるか、規則性があるので、計算できて、計算問題にしか過ぎない。
関数を入れるセルの自分の列数を４で割る商と余りに分解すればしまい。ただし行数に対しー１して４で割ったりして、結果に＋１するのがコツですが。
=INDEX($A$1:$D$100,INT((ROW()-1)/4)+1,MOD((ROW()-1),4)+1)

回答No.4

mitarashi

お勉強のために、実験してみました。
元データは最初のシートの、a1から存在するとします。
Sub test()
Dim targetRange As Range, myCell As Range, element As Variant
Dim buf() As Variant
Dim buf2 As Variant
Dim i As Long

Set targetRange = Sheets(1).Range("a1").CurrentRegion
ReDim buf(1 To targetRange.Cells.Count)
i = 1
For Each myCell In targetRange.Cells
buf(i) = myCell.Value
i = i + 1
Next
Sheets(2).Range("a1:a" & targetRange.Cells.Count) = Application.WorksheetFunction.Transpose(buf)
buf2 = targetRange
i = 1
For Each element In buf2
buf(i) = element
i = i + 1
Next
Sheets(3).Range("a1:a" & targetRange.Cells.Count) = Application.WorksheetFunction.Transpose(buf)
End Sub

回答No.2

xls88

出来ません。
Excel2007で列数が最大16384です。
何故、そうされたいのですか？

回答No.1

goo39

列の最大数は256なので無理だと思います。

補足

１行というのは間違いでした、
A列に縦に並べたいということです。