VBAで任意の範囲内のセル２個ずつを総当りでコピー

質問

シートＡ　　　　　　　　シートＢ　　　　　　　　　　　シートＣ
　　Ａ　　Ｂ　Ｃ　Ｄ　　　Ａ　Ｂ　　Ｃ　 　Ｄ　　　　　Ａ　　Ｂ　　 Ｃ　 Ｄ
１　21　22　23　24　　21　22　2122　2122' 　2122　2122'
２　　　　　　　　　　　　　　　　　　　　　 　　　 　2123　2123’
３　　　　　　　　　　　　　　　　　　　　　 　　　 　2124　2124'
４　　　　　　　　　　　　　　　　　　　　　 　　　 　2223　2223'

(1)シートＡのＡ１、Ｂ１をコピーしてシートＢのＡ１、Ｂ１に代入する。
　シートＢのＣ１、Ｄ１には計算式が入っており、結果が表示される。
(2)シートＢのＣ１、Ｄ１の計算結果をシートＣのＡ１、Ｂ１に代入する。
(3)次はシートＡのＡ１、Ｃ１をコピーしてシートＢのＡ１、Ｂ１に代入する。
　シートＢのＣ１、Ｄ１には計算式が入っているので結果が表示される。
(4)計算結果をシートＣのＡ２、Ｂ２に代入する。
(5)同じ動作をシートＡの一行目に数字がある場合は繰り返し行う。
(6)シートＡ（Ａ１、Ｂ１）（Ａ１、Ｃ１）（Ａ１、Ｄ１）が終了したら
　今度は（Ｂ１、Ｃ１）（Ｂ１、Ｄ１）と、
　シートＡのＢ１を、シートＢのＡ１とＢ１に代入して、
　計算された結果をシートＣのＡ列、Ｂ列に代入していく。
(7)シートＡのＢ１が終了したら、今度は（Ｃ１、Ｄ１）をシートＢのＡ１、Ｂ１に代入し、
　計算結果をシートＣのＡ６、Ｂ６に代入する。

地域ごとの合併による効果に関する調査で使用したく、
シートＡの一行目の数字を総当りさせる事が目的です。

上の説明では、シートＡの一行目は4列しかなく、シートＣに導き出される計算結果は6行だけですが、
実際の作業はシートＡは130列ほどとなり、マクロで作ると8,000回の作業を
しなくてはならないため、ＶＢＡでいろいろ試してみたのですが、
知識不足でうまくいかないため質問させていただきました。

また、シートＢのＣ１とＤ１の計算式というのは、
シートＢのＡ１とＢ１に数値を代入した際に、Ａ列Ｂ列の２行目以下に
関数で数字を引っ張ってきて（総人口や産業別就労人口等）、
それらの数値を使った計算なので、シートＡに計算式を入れるというのは少し難しいです。

どうぞよろしくお願いいたします。

回答No.2

mt2008 · ベストアンサー

ループの回し方に注意すれば簡単な話しですよ。
サンプルですのでエラー処理は行っていません。

Sub Sample()
　　Dim nTotal As Long
　　Dim i, j, nRow As Long

　　nTotal = Sheets("SheetA").Range("A1").End(xlToRight).Column
　　For i = 1 To (nTotal - 1)
　　　　For j = (i + 1) To nTotal
　　　　　　Sheets("SheetB").Range("A1") = Sheets("SheetA").Cells(1, i)
　　　　　　Sheets("SheetB").Range("B1") = Sheets("SheetA").Cells(1, j)

　　　　　　nRow = nRow + 1
　　　　　　Sheets("SheetC").Cells(nRow, 1) = Sheets("SheetB").Range("C1")
　　　　　　Sheets("SheetC").Cells(nRow, 2) = Sheets("SheetB").Range("D1")
　　　　Next j
　　Next i
End Sub

お礼

ありがとうございます！

このままで目指してたの結果を出す事ができました。

この10日間、必要に迫られて本屋に通ったりネットで調べたり
いろいろ教えてもらったりしたのですが、思うように行かず、
最後の望みをここに託しておりました。
mt2008さん、本当に感謝いたします！

今までＶＢＡの知識は『0』だったのですが、今回試行錯誤してみたことで、
ＶＢＡは思ってた以上に様々な事が出来る、という事が解り、
今後も勉強を続けて行きたいと思っています。

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

回答No.1

imogasi

問題の説明文が長く複雑で、計算式が入っている、などといっているが、判りにくい。VBAでも計算できるのでは。VBAに一本化しては。
コピーなどといっているが、セルの値（データ）を使っているだけのようだ。わざわざコピーなどといわない。
シートAの４行ぐらいの例を挙げて（今は１行しか書いてない、少なすぎる）、シートCのA列がどうなってほしいのか書いて質問したら。
どうせ総当りなら、For Nextのネストしかないでしょう。課題丸投げのようだが、少しやってみましたか。
シートCのA列とB列は同じ値ではないのか。であればA列だけの質問にては。
シートBも途中経過のようであるが、作る理由は。作るにしても（本題が出来れば自ずと判るから）質問しなくても良いのでは。
少し自分でやって、判らない点に質問を絞ること。

補足

質問を読んでいただきありがとうございます。

全てをVBAに一本化できれば早いのかもしれませんが、私にVBAの知識が全くないので
後々他のデータを付け足す場合はシートＢの中の関数だけをいじれば済むようにしたいのです。

シートＡの1行目はそれぞれの地域のコード番号で、
2行目以下には地域の総人口や学童数、就業人口、年代別人口数、
年度別人口数など、75行のデータが入っており、
シートＢのＡ１とＢ２にコード番号を入れることで、
シートＢの2行目～75行目にシートＡのデータが入るように関数を
入れてあります。
その地域データを使った今後の人口増減予測、交通事故率予測、
犯罪率推移予測等が、シートＢのＣ１～Ｓ１に計算結果で
出るようになっており、それをシートＣにまとめたいのです。

判りにくく申し訳ありません。