VBA Calculations between ranges

[Misca]

What's the best way to do calculations between same sized ranges in VBA? I've got several ranges that have to use the same kind of calculations between them :

Take the first cell value from one range and add/minus/multiply it with the first cell value in another range and put the value in the first cell of a third range. Go to second cells in both ranges and do the same calculations between them and place the value in the second cell in the third range and so on 'till the last cell of both ranges has been calculated.

 

[jbeaucaire]

Several ways to do this. On the worksheet itself, you can copy the first range of cells to the third range, then copy the second range of cells and EDIT> PASTESPECIAL > Add/Subtract/Multiply it over the top of the values in the third range.

This would be the simplest way to do the SAME math on those two ranges. You can record yourself doing this to get base code to get you started.

You could also "Loop" through the rows and do the math one row at a time...much less elegant, but would still work.

 

[DanUK]

You could try this...

Sub Calc_Range()
'Assumes all three ranges are the same size...
Dim inp_rng1 As Range, inp_rng2 As Range, out_rng As Range
Dim c As Range, r As Range
Dim i As Integer, j As Integer
    Set inp_rng1 = Worksheets(1).Range("Rng_One")
    Set inp_rng2 = Worksheets(1).Range("Rng_Two")
    Set out_rng = Worksheets(1).Range("Rng_Three")
    
    i = 0: j = 0
    For i = 1 To inp_rng1.Rows.Count
        For j = 1 To inp_rng1.Columns.Count
            Debug.Print inp_rng1(i, j)
            out_rng(i, j) = inp_rng1(i, j) + inp_rng2(i, j)
        Next j
    Next i
    
End Sub