計算結果を一覧表にする方法を教えてください。

質問

パラメータ（１）をシート１のセルＦ２に、パラメータ（２）をＧ２に入力すると、結果１、２、３がそれぞれＮ２、Ｏ２、Ｐ２に表示されるエクセルファイルがあります。
そして、パラメータ（１）はシート２のＡ２～Ａ１０２に、パラメータ（２）はシート２のＢ２～Ｂ１０３に入力されています。

そこで、各パラメーターを入力した際の結果１をシート２のＣ２～Ｃ１０２、結果２をシート２のＤ２からＤ１０２、結果３をシート２のＥ２～Ｅ１０２に入力された表を作成したいのですが、効率的な方法はないでしょうか？

よろしくお願いします。

回答No.1

ham_kamo · ベストアンサー

関数でやる方法を思いつかなかったので、マクロを書いてみました。
Alt+F11でVBAの画面を開き、「挿入」＞「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。
（マクロ中に出てくる"Sheet1","Sheet2"のシート名が異なるときは、実際のシート名に書き換えてください）

その画面でF5キーを押すか、F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。

Sub Sample()
　Dim i As Integer
　Dim W1 As Worksheet, W2 As Worksheet
　Set W1 = Worksheets("Sheet1")
　Set W2 = Worksheets("Sheet2")

　Application.ScreenUpdating = False
　For i = 2 To 102
　　W2.Cells(i, "A").Resize(1, 2).Copy W1.Cells(2, "F")
　　W1.Cells(2, "N").Resize(1, 3).Copy
　　W2.Cells(i, "C").PasteSpecial Paste:=xlPasteValues
　Next
　Application.CutCopyMode = False
　Application.ScreenUpdating = False
End Sub

お礼

素早い回答有難うございます。
マクロコードを書き込んでいただき、お陰様で表を作成する事が出来ました。
また不明な点が出てくるかもしれませんのでしばらく締め切らずにおりますが、後日改めてお礼ポイントと共に締め切ろうと思います。

回答No.2

nanasupra

N2,O2 P2の計算式をシート２のC2,D2,E2にコピー

計算式内のF2,G2だったところをA2,B2に変更

あとはオートフィルで下に引っ張ればいいのではないでしょうか。

お礼

オートフィルでは私の知識が不十分なためか上手くいきませんでした。
回答有難うございました。