エクセルで３６５×２４の表を8760×１に並び替えたいです

質問

エクセルで、下のような３６５×２４の表で
　　　Ａ　 Ｂ 　Ｃ　 ・・Ｘ
１　　●　●　●　　　●　　　　　　　　　　
２　　●　●　●　　　●
３　　●　●　●　　　●　　　　　　　
・　　　　　　　　　　　　　　　
365　 ●　●　●　　　●　　　　　　　　　　　

で、これを8,760×１の表に簡単に変換したいのですがやり方がわかりません。少なかったらコピーして行と列を入れ替えるで、やってもいいのですが今回はこれが、かなりの量があり手作業だと時間がかかりすぎ、実用的ではありません。ですので、この作業を簡単に出来る方法を探しております。どうぞ宜しくお願いします。
　なお、こちらはオフィス2000、2002を使用しております。

回答No.2

whitepepper · ベストアンサー

まずCSVファイルに書き出します。すると次のようになっているでしょう。

●,●,●,●,●
●,●,●,●,●
●,●,●,●,●

　それで、縦一列ですので、「カンマ」をすべて「改行」に置換します。ワープロソフト、またはテキストエディタを使います。
　すると、次のようになります。
　これを再度、Excelで読み込みます。以上です。

●
●
●
●
●
●
●
●
●
●
●
●
●
●
●

お礼

回答有難うございました。教えていただいた方法でうまく出来ましたが、今回はかなりの量のデータを処理しなくてはいけなかったので、この方法では時間がちょっとかかりすぎてしまいました。
　しかし、このようなやり方があるとは思わなかったので、勉強になりました。どうもありがとうございました。

回答No.4

imogasi

関数式でやる思考プロセスを説明します。
エクセルの関数は式を入れるセル以外の、他のセルに値をセットできません。（ＶＢＡは自由です。）
（本件は別のセルに持ってくるだけで、演算は要りません
ので、望みのセルを指定するだけで良いのです。）
受けるセル側で、どこからかの来て欲しいセルを表現（指定）すれば良いのです。
Ａ列の下に続けてＢ列をその下にＣ列を続けるやり方を
考えます。
例えば値を持ってくる（受ける）セル１０００行目には
どの行の、どの列なのか？を考えます。
Ａ列１－３６５を越えるとＢの１－３６５を持ってくる。
これで７３０セル埋まります。１０００－７３０＝２７０ですからＣ列の２７０行目のセルを持ってくるべきことが
判ります。このことを一般化して、
（Ａ）列は現在行１０００を３６５で割った２に１足した
２＋１＝３（－－＞Ｃ列）が決める。
（Ｂ）元の表の上からの第何番行数は、余りの２７０が決める。
以上は元の表の左上隅（＄Ａ＄１）を基点にして考えてい
る。
以下は４行の元表例で説明します。
行は=MOD(ROW()-1,4)+1を使うと、１、２、３、４、１、２、３、４・・・の繰り返しが出来る。
列は=INT((ROW()-1)/4)+1を使うと、１，１，１，１，２，２，２，２，３、３、３、３・・・が出来る
左上隅を基点に列、行を指定してセルを表現する関数に
ＯＦＦＳＥＴ関数があることを思い出して、これを使う。
（知ってないと思い出せませんが）
ただＯＦＦＳＥＴ関数はＯＦＦＳＥＴ（基点、行、列）
ですが行や列は「隔たり」行数や列数を指定せねばならないので－１しておく必要があります。
それで空いた列の第１行に
=OFFSET($A$1,MOD(ROW()-1,365),INT((ROW()-1)/365))といれ、下へ複写します。８７６０行まで＋ハンドルを引っ張るのは大変ですがほかに楽な方法はないでしょう。
－－－－
ＶＢＡならＯＦＦＳＥＴに当たるのはＣｅｌｌｓ（ｉ，ｊ）です。この問題ではＣｅｌｌｓ（ｉ，１）です。こちらなら元の表のｘ行、ｙ列から収まるべきｉを計算します。ｉ＝（ｘ－１）＊３６５＋ｊになります。
ｘは１－３６５、ｙは１－２４をＦＯＲ分でネストして
繰り返します。

お礼

回答有難うございました。詳しく教えていただいたのですが、私には少しハードルが高くちょっと理解できない部分がありましたが、これから少しづつ勉強していきたいです。
　今回は本当に有難うございました。

回答No.3

junijuni

こんなのもありかな…

Sub Rearranges()
nRow = 365
nCol = 24
For i = 1 To nRow
For j = 1 To nCol
’A1、A2、A3…、B1、B2と一行にするときはこっち
ActiveSheet.Cells((j - 1) * 10 + i, nCol + 1) = ActiveSheet.Cells(i, j)
’A1、B1、C1…、A2、B2と一行にするときはこっち
ActiveSheet.Cells((i - 1) * 4 + j, nCol + 1) = ActiveSheet.Cells(i, j)
Next
Next
End Sub

マクロで実行します。
条件に応じてコメント行を使い分けてください。
行数が変わる場合はnRowの値を、
列数が変わる場合はnColの値を変更してください

お礼

回答有難うございました。マクロについて、よくわからなくうまくできなかったのですが、今回教えていただいて、興味がわきました。これから少しづつ勉強できたらいいなと思いました。
　今回は有難うございました。

回答No.1

maruru01

こんにちは。maruru01です。

どこかの列（仮にY列）を作業列として使用します。
Y1に、

=OFFSET($A$1,INT((ROW()-1)/24),MOD(ROW()-1,24))

と入力して、8760行目までコピーします。
これだと、
A1,B1,C1・・・X1,A2,B2・・・W365,X365
の順になります。（行優先）
もし列優先で、
A1,A2,A3・・・A365,B1,B2・・・X364,X365
のようにするなら、数式を、

=OFFSET($A$1,MOD(ROW()-1,365),INT((ROW()-1)/365))

にします。
数式をコピーして全データを表示出来たら、そのデータ範囲を選択してコピーし、別の場所に[形式を選択して貼り付け]の[値]貼り付けして下さい。

お礼

回答有難うございました。教えていただいた関数を入力してうまく出来ました。すばやい解凍有難うございました。