E5からE52までは固定値I5を使用し、
(=0.000119*(($I$5-E5)/E5)^1.23)~(=0.000119*(($I$5-E52)/E52)^1.23)
という計算式になります。
E53からE100までは固定値I6を使用し、
(=0.000119*(($I$6-E53)/E53)^1.23)~(=0.000119*(($I$6-E100)/E100)^1.23)
という計算式になります。
これを順にIがI490に至るまでループするマクロを作って下さい。
よろしくお願い致します。
数式を入れる列をL列としています。
(L列に数式を入れるように修正しました)
Sub sample() Dim i As Long Dim j As Long Dim k As Long k = 4 ' I5~I490まで繰り返し For i = 5 To 490 For j = 1 To 48 ' 数式を入れる行を計算 k = k + 1 ' L列に数式を入力 Cells(k, "L").FormulaR1C1 = "=0.000119*((R" & i & "C9-RC[-7])/RC[-7])^1.23" Next Next End Sub
回答ありがとうございます。
2012/07/04 21:39:55すみません。L列に数式を入れる方法を教えて頂けますか?
ありがとうございました。大変助かりました。
2012/07/05 17:47:43