define variable range in a loop

[ahadi]

Dear friends,
I wish to perform statistical calculations in very huge pool of climate data.
what I need is to define a variable cell addresses and pass them to the formula to compute the output.

for example I have the following as Temperature or pressure in different columns for different days of very long historical data:

Date/hour	temperature	pressure	humidity
2017/6/1 03:00UTC	23.3	871.2	21.5
2017/6/2 03:00UTC	27.8	870.6	34.8
2017/6/3 3:00UTC	26.8	873.2	27.8
.....	....	...	....

<tbody>
</tbody>

I wish to write a VBA which computes for example write average of certain number of cells in a columns in a cell and iterate it till the end of worksheet and for all sheets
I want to do exactly the following performance in Iterative loop:

iRow = 1
Do
Range("F32").Select
ActiveCell.FormulaR1C1 = "AvragePres"
Range("G32").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-31]C[-1]:R[-1]C[-1])"
Range("F33").Select
iRow = iRow + 1

Loop While iRow < 1600
in this code I wish to define variable cell address in a loop instead of constant cell address F3 or G32 and F33.

Many Thanks in advance for your kind efforts
Ahadi: vazife@gmail.com

 

[DushiPunda]

just use something similar to your iRow variable...and then you can do this:

Range("F" & yourFVar)
Range("G" & yourGVar)
Range("F" & yourFVar + 1)

yourFVar = yourFVar + 1
yourGVar = yourGVar + 1

 

[steve the fish]

Doesn't look like you need a loop to me. Just fill the formula down.