データの入れ替えについて

質問

こんばんは。データの処理について是非アドバイスをお願い致します。

Excel98でとある数値データを処理しなければいけないことになったのですが、
まずこれを並び替えないといけないのです。最終的にXY散布図を作りたいの
ですが、そのYに対応するデータが横に並んでしまっているのです。より正確に
書くと、４００行×６列くらいのデータでして、データの構成は例えば

　　Ａ　Ｂ　Ｃ
１　１　２　３

２　４　５　６

３　７　８　９

という様になっています。これを１－２－３…７－８－９と並び替えたいのです。
こちらのサイトにデータをコピーして「行と列を入れ替える」にチェックをして
ペーストする、という方法があったのですが、行数が多すぎるらしく、機能して
くれません。是非お力を貸して下さい。

回答No.3

imogasi · ベストアンサー

テストデータとして
A１からG１まで各セルに１から７
A２からG２まで各セルに８から１４
A３からG３まで各セルに１５から２１を入力する。
（ちゃんと並んだことが判るように、１からの整数にしています。）
VBEの画面で、挿入－モジュールで
Sub test01()
k = 1
For i = 1 To 100
For j = 1 To 7
Worksheets("sheet1").Cells(k, 2) = Worksheets("sheet2").Cells(i, j) 'この行前行に続けること
k = k + 1
Next j
Next i
End Sub
と打ちこみ実行する。
Sheet1のB列に１～２１まで順に並びます。
これでSheet1のA1とB1、A2とB2、A3とB3、・・・の
ペアーは正しい対応関係になるのでしょうか。

（上記VBAの仮定他注記）
１．Sheet1にX系列のデータがA列に縦に並んでいるものと
仮定しています。
２．ｋはSheet１での、行（数）を示すポインターです。
３．Sheet2の各行が７列で皆そろっていると、質問の内容を受けとっています。もし不ぞろいなら後記。
４．for　i＝1　to　１００　の１００は最下行のつもりです。
最下行を察知する方法がありますが省略。
５．Worksheets("sheet1").Cells(k, 2）の２はB列を示します。
もしD列にセットするから４に変えることになります
６．Worksheets("sheet2").Cells(i, j)のｉとｊは、
Sheet2のｉ行ｊ列の意味です。
７．各行でデータ数（列数）が不揃いの場合
各行に１からの整数を順に入れて適当に改行しテストデータにしてください。
Sub test01()
k = 1
For i = 1 To 100
For j = 1 To 20 '一番データが沢山入っている行のデータ数を
　　　　　　　　　　'２０と仮定
If Worksheets("sheet2").Cells(i, j) = "" Then Exit For
Worksheets("sheet1").Cells(k, 2) = Worksheets("sheet2").Cells(i, j)
k = k + 1
Next j
Next i
End Sub

お礼

こんにちは。早朝にも関わらず、回答ありがとうございます。
マクロを使う方法で、非常に素早くデータを処理することが
出来ました。現在はこれらのデータをグラフ化しているところです。
エクセルのマクロ機能は具体的にどのように使うのか、
というところでいつも戸惑ってしまい使っていませんでしたが、
これはやはり使えるものなのですね！これからはマクロも食わず嫌いをせずに
勉強していきたいと思います。本当にありがとうございました。

補足

すいません、さらに補足です。
データの対応関係もバッチリでした！

回答No.2

imogasi

#1の方もそうらしいが、良く判らない。
エクセルで散布図を作るのなら
　　　　A　　　　B
１　　　２　　　　８　　　のようにデータが２列に並ん 　　　　　　　　　　　　　でおれば
２　　　４　　　　２　　　直ぐプロットさせることが出　　　　　　　　　　　　　来る。
３　　　３　　　　５　　　現状は左記のX系列（A列）
４　　　５　　　　７　　　はどう記録されているのです　　　　　　　　　　　　　か。
５　　　９　　　　８　　　A1,A2、・・・とデータは入っ　　　　　　　　　　　　　ているのですか。
６　　　２　　　　５　　　さてY系列はどう言う風に現あ　　　　　　　　　　　　　るシートに
７　　　５　　　　５　　　記録されているのですか。
８　　　・　　　　・　　　解せないのはA1,B1,C1,・・・　　　　　　　　　　　　　に並べていくと２５６列で限界になりますが、どうなるのですか。１－２－３・・・７－８－９と9列で打ちきり、その後は第２行に続くのですか。（１）X系列はどう（２）Y系列はどう（３）どのXとどのYが対応すべきなのか（４）シートまたはブックは異なるのか同じかなど図示しないと答えられないのでは。
法則性があれば、短いVBAでA列とB列に並べて対比出来るよう加工できると思う。

補足

こんばんは。早速のお返事有難うございます。
私の説明が至らない部分があったようで、申し訳有りません。
お二人に伝わらなかった部分が共通しているようなので、こちらの方に
まとめて補足させていただきます。

まず、X系列のデータですが、これは別に作っています。なので、今考えて
いるのはY系列のデータのみです。それで、取り込んだ状態のデータは

　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ
１　１　２　３　４　５　６　７
２　１　２　３　４　５　６　７
３　１　２　３　４　５　６　７

という風になっていて、これを

　　Ａ
１　Ａ１
２　Ｂ１
３　Ｃ１
↓
７　Ｇ１
８　Ａ２
９　Ｂ２
↓
というようにしたい、というのが私が意図するところです。ですので
wolvさんがイメージされた内容でよろしいと思います。
恐らく、私の質問の中にあった、「１－２－３…７－８－９」という部分で
誤解を生じさせてしまったものと思います。そして、この並び変えした
データを別のシートにペーストして散布図のためのデータとするのが
最終的な目的です。つまり、横を縦に直したい、ということなんです(^^;)

伝わりましたでしょうか・・・？是非、よろしくお願い致します。

回答No.1

wolv

ちょっとよくわからないのですが、……
結果として、

　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ
１　１　２　３　４　５　６　７　８　９

のようにしたいということなのですか？

ｘに関する情報は別に２４００個あって、
ｙに対応する４００行×６列のデータとあわせて、
２４００個の点からなる散布図を書きたい、ということでいいでしょうか？

お礼

こんにちは。おかげさまで問題を解決することが出来ました。
近々実験の結果を報告することになっていまして、どうしようかと
焦っていたところです。ありがとうございました。