各変数が配置されている列ごとに、次の行から変数を取得して繰り返したい一連の方程式があります。私は初心者なので、コーディングはおそらくスクラッチではありません。
Sub Iteration()
Dim al, ab, ae As Double
Dim as1, as2 As Double
'etc
as1 = Range("CG7")
as2 = Range("CG8")
aA1 = Range("BQ7")
'etc
intCounter = 0
For intCounter = 1 To 10000
Let x = ((aN1 * 1000) - (as1 * aA1) + (as2 * aA2)) / (al * fc * ae * ab)
Let x2 = ((aN12 * 1000) - (as12 * aA12) + (as22 * aA22)) / (al2 * fc2 * ae2 * ab2)
Next
Sheets("Sheet1").Range("CJ7").Value = x
End Sub
これは、各変数値に相対的な範囲として設定したいくつかの変数に対して行いました。そして、次の行では、方程式全体をやり直して、次の行の変数を再度設定する必要がありました。次の計算のために次の行のセルにスキップする変数を(おそらく相対セル参照を使用して)設定する方法はありますか?計算用に36行あり、約9つの変数があることも考慮してください。