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:
[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD]Date/hour[/TD]
[TD]temperature[/TD]
[TD]pressure[/TD]
[TD]humidity[/TD]
[/TR]
[TR]
[TD]2017/6/1 03:00UTC[/TD]
[TD]23.3[/TD]
[TD]871.2[/TD]
[TD]21.5[/TD]
[/TR]
[TR]
[TD]2017/6/2 03:00UTC[/TD]
[TD]27.8[/TD]
[TD]870.6[/TD]
[TD]34.8[/TD]
[/TR]
[TR]
[TD]2017/6/3 3:00UTC[/TD]
[TD]26.8[/TD]
[TD]873.2[/TD]
[TD]27.8[/TD]
[/TR]
[TR]
[TD].....[/TD]
[TD]....[/TD]
[TD]...[/TD]
[TD]....[/TD]
[/TR]
</tbody>[/TABLE]

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.